1! { dg-do compile } 2! Program to test ENUM parsing errors 3 4program main 5 implicit none 6 integer :: i = 1 7 8 enum, bind (c) 9 enumerator :: red, black = i ! { dg-error "is a variable" } 10 enumerator :: blue = 1 11 end enum junk ! { dg-error "Syntax error" } 12 13 blue = 10 ! { dg-error "Unexpected assignment" } 14 15end program main ! { dg-error "Expecting END ENUM" } 16 ! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 } 17