Both http://fortranwiki.org/fortran/show/Typed+enumerators and http://docs.cray.com/books/S-3693-36/html-S-3693-36/z1018297010.html show an example of a named enum in Fortran with ISO_C_BINDING.
I cannot build this with Intel 17 or GCC 6.2. Can you please help me understand what I am doing wrong?
! enum.F
module enumtest
use iso_c_binding
#if NAMED_ENUM
enum, bind(c) :: color
enumerator :: red = 4, blue = 9
enumerator yellow
end enum
#else
enum, bind(c)
enumerator :: red = 4, blue = 9
enumerator yellow
end enum
#endif
end module enumtest
$ ifort -std08 -free -g -warn all -traceback -c enum.F
$ ifort -std08 -free -g -warn all -traceback -DNAMED_ENUM -c enum.F
enum.F(4): error #5082: Syntax error, found '::' when expecting one of: <END-OF-STATEMENT> ;
enum, bind(c) :: color
--------------------^
enum.F(5): error #6163: This statement is not in the correct order.
enumerator :: red = 4, blue = 9
--------^
enum.F(6): error #6163: This statement is not in the correct order.
enumerator yellow
--------^
enum.F(7): error #8131: An END ENUM statement occurred without a corresponding ENUM statement.
end enum
------^
compilation aborted for enum.F (code 1)
$ gfortran-6 -std=f2008 -c enum.F
$ gfortran-6 -std=f2008 -DNAMED_ENUM -c enum.F
enum.F:4:6:
enum, bind(c) :: color
1
Error: Unclassifiable statement at (1)
enum.F:5:22:
enumerator :: red = 4, blue = 9
1
Error: ENUM definition statement expected before (1)
enum.F:6:18:
enumerator yellow
1
Error: ENUM definition statement expected before (1)
enum.F:7:9:
end enum
1
Error: Expecting END MODULE statement at (1)
