18 lines
442 B
Fortran
18 lines
442 B
Fortran
program variables
|
|
use, intrinsic :: iso_fortran_env, only: sp=>real32, dp=>real64
|
|
! use, intrinsic :: iso_c_binding, only: sp=>c_float, dp=>c_double
|
|
implicit none
|
|
|
|
real :: val0
|
|
real(sp) :: val1 ! 단정도
|
|
real(dp) :: val2 ! 배정도
|
|
|
|
val0 = 0.
|
|
val1 = 0._sp
|
|
val2 = 0._dp
|
|
|
|
print *, 'Max = ', huge(val0)
|
|
print *, 'Max32 = ', huge(val1)
|
|
print *, 'Max64 = ', huge(val2)
|
|
|
|
end program variables |