OSDN Git Service

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