2 ! Program to test ENUM parsing errors
7 enumerator
:: red
, black
= 2
8 enumerator
:: blue
= 1, red
! { dg-error "already" }
12 enumerator
:: r
, b(10) = 2 ! { dg-error "cannot be array" }
13 enumerator
, save :: g
= 1 ! { dg-error "cannot have attributes" }
14 end ! { dg-error " END ENUM" }
16 end program main
! { dg-excess-errors "" }