<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 end_enum_example     Use enum_module     Call cx_show(cx_default)     Call cx_show(cx_reopen) End Program
	Execution Results   Default   cx value 5