1! { dg-do compile } 2! Program to test ENUM parsing errors 3 4program main 5 implicit none 6 7 enum, bind (c) 8 enumerator :: sun, mon = 2 9 enum, bind (c) ! { dg-error "Unexpected" } 10 enumerator :: apple, mango 11 end enum 12 enumerator :: wed = 1 ! { dg-error "ENUM definition statement expected" } 13 end enum ! { dg-error "Expecting END PROGRAM" } 14 15end program main 16