2 ! Program to test ENUM parsing errors
8 enumerator :: sun, mon = 2
9 enum, bind (c) ! { dg-error "Unexpected" }
10 enumerator :: apple, mango
12 enumerator :: wed = 1 ! { dg-error "ENUM definition statement expected" }
13 end enum ! { dg-error "Expecting END PROGRAM" }