1!{ dg-do compile } 2! PR fortran/66040 3! 4! Original code from Gerhard Steinmetz 5! <gerhard dot steinmetz dot fortran at t-online dot de> 6real function f1(x) 7 sequence ! { dg-error "Unexpected SEQUENCE statement" } 8end function f1 9 10real function f2() 11 else ! { dg-error "Unexpected ELSE statement" } 12end function f2 13 14real function f3() 15 block data ! { dg-error "Unexpected BLOCK DATA statement" } 16end function f3 17 18real function f4() 19 program p ! { dg-error "Unexpected PROGRAM statement" } 20end function f4 21