<Example Program>

Module enum_module
    Enum,Bind(C)
        Enumerator cx_default
        Enumerator :: cx_open=4, cx_reopen, cx_close
    End Enum
Contains
    Subroutine cx_show(status)
        Integer(Kind(cx_default)),Intent(In) :: status
        If (status==cx_default) Then
            Print *,'Default'
        Else
            Print *,'cx value',status
        End If
    End Subroutine
End Module
Program enum_example
    Use enum_module
    Call cx_show(cx_default)
    Call cx_show(cx_reopen)
End Program
Execution Results

  Default
  cx value 5