OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2010-07-24 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
func_decl_5.f90
1
! { dg-do compile }
2
! { dg-options "-c" }
3
!
4
! Functions shall not have an initializer.
5
!
6
! Some tests were moved from func_decl_4.f90 to here.
7
!
8
9
function f1() ! { dg-error "cannot have an initializer" }
10
integer :: f1 = 42
11
end function
12
13
function f2() RESULT (r) ! { dg-error "cannot have an initializer" }
14
integer :: r = 42
15
end function