ex0435.f90

Fortran 95程序设计&Code-彭国伦

program ex0435
implicit none
! 判断可以记录9个位数的整数kind值
integer, parameter :: long_int  = selected_int_kind( 9 )  
! 判断可以记录3个位数的整数kind值
integer, parameter :: short_int = selected_int_kind( 3 ) 
! 判断可以有10个有效位数, 指数可以记录到50的浮点数kind值
integer, parameter :: long_real = selected_real_kind( 10, 50 )
! 判断可以有3个有效位数, 指数可以记录到3的浮点数kind值
integer, parameter :: short_real= selected_real_kind( 3, 3 )

integer(kind=long_int)  :: a = 12345678
integer(kind=short_int) :: b = 12
real(kind=long_real)    :: c = 1.23456789D45
real(kind=short_real)   :: d = 1230

write(*, "(I3,1X,I10)" )    long_int,   a
write(*, "(I3,1X,I10)" )    short_int,  b
write(*, "(I3,1X,E10.5)" )  long_real,  c
write(*, "(I3,1X,E10.5)" )  short_real, d

stop
end