1! { dg-do compile }
2! we didn't correctly reject function declarations without argument lists
3! note that there are no end statements for syntactically wrong function
4! declarations
5  interface
6     function f1     ! { dg-error "Expected formal argument list" }
7     function f3()
8     end function f3
9     function f4 result (x) ! { dg-error "Expected formal argument list" }
10     function f5() result (x)
11     end function f5
12   end interface
13  f1 = 1.
14end
15
16FUNCTION f1          ! { dg-error "Expected formal argument list" }
17
18function f2()
19  f2 = 1.
20end function f2
21
22function f3 result (x) ! { dg-error "Expected formal argument list" }
23
24function f4 () result (x)
25  x = 4.
26end function f4
27