2 ! Program to test ENUM parsing errors
9 enumerator :: sun, mon = 2
10 i = 2 ! { dg-error "Unexpected" }
16 enum, bind (c) ! { dg-error "Unexpected" }
17 enumerator :: red, black = 2 ! { dg-error "ENUM definition statement expected" }
18 enumerator :: blue = 1 ! { dg-error "ENUM definition statement expected" }
19 end enum ! { dg-excess-errors "Expecting END PROGRAM" }