2 ! Program to test ENUM parsing errors
8 enum
, bind (c
) ! { dg-warning "New in Fortran 2003" }
9 enumerator
:: red
, black
= i
! { dg-error "cannot appear" }
10 enumerator
:: blue
= 1
11 end enum junk
! { dg-error "Syntax error" }
13 blue
= 10 ! { dg-error "Expected VARIABLE" }
15 end program main
! { dg-excess-errors "" }