4 ! we now have enumerators in F2003/8, for the sake of interop with C
5 enum
, bind(c
) ! unnamed 1
6 enumerator
:: red
=1, blue
7 enumerator gold
, silver
, bronze
12 ! here follow nonstandard enum declarations, which may become valid in a later standard
13 ! no real harm implementing these as long as valid stuff isn't broken
15 enumerator
:: no_c_binding
23 enumerator
:: arm
, leg
34 enum(8) :: Paren_colon
42 enum
, bind(c
) :: Name_colon
46 ! another entry to verify the parsing hasn't broken
47 real, parameter :: othervar