[Fortran] 纯文本查看 复制代码 program test_kinds
implicit none
integer,parameter :: long=selected_real_kind(9,99)
real :: a=2.8_long
write(*,*) KIND(a)
write(*,*) long
write(*,*) precision(a)
write(*,*) range(a)
write(*,*) huge(a)
stop
end
输出结果分别为:
4
8
6
37
3.4028235E+38
-----------------------------------------------------------
疑问:
1、KIND(a)和输出的long的数值,为什么不同?a的kind值不是通过语句real :: a=2.8_long指定的么?
2、定义的long的范围,是(9,99),为什么输出的precision和range是8和6?
3、输出的a的最大数值,不应该是10E99吗?
谢谢各位!
|