enum,bind(C) :: num
enumerator :: zero=0,one,two,three
end enum
type(num) :: mynum=one
enum,bind(C)
enumerator :: zero,one,two,three
end enum
integer :: a=two
print*,a
fcode 发表于 2019-4-30 21:03
是的,我也觉得挺鸡肋的,所以基本不用 enum
kyra 发表于 2019-4-30 22:40
子文也很美
li913 发表于 2019-5-6 15:22
枚举适用于对多个单变量进行连续赋值的情况,修改起来特方便。比如
b=1,c=2,d=3
如果想增加一个变量,使得
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |