2 ! Program to test ENUM parsing errors
7 enumerator :: red, black = 2.2 ! { dg-error "initialized with integer expression" }
8 enumerator :: blue = "x" ! { dg-error "initialized with integer expression" }
9 end enum ! { dg-error "has no ENUMERATORS" }