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