RosettaCodeData/Task/Enumerations/Fortran/enumerations-2.f

4 lines
78 B
Forth

enum, bind(c) :: nametype
enumerator :: one=1, two, three
end enum nametype