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