1! { dg-do compile } 2! Program to test ENUM parsing errors 3 4program main 5 implicit none 6 enum, bind (c) 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" } 10 11end program main 12