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 :: sun, mon = 2 10 i = 2 ! { dg-error "Unexpected" } 11 enumerator :: wed = 1 12 end enum 13 14 i = 1 15 16 enum, bind (c) ! { dg-error "Unexpected" } 17 enumerator :: red, black = 2 ! { dg-error "ENUM definition statement expected" } 18 enumerator :: blue = 1 ! { dg-error "ENUM definition statement expected" } 19 end enum ! { dg-error "Expecting END PROGRAM" } 20 21end program main 22