2 ! Program to test ENUM parsing errors
6 enum, bind (c) ! { dg-warning "New in Fortran 2003" }
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" }