PRECISION (The GNU Fortran Compiler) (original) (raw)
program prec_and_range real(kind=4) :: x(2) complex(kind=8) :: y
print *, precision(x), range(x) print *, precision(y), range(y) end program prec_and_range
program prec_and_range real(kind=4) :: x(2) complex(kind=8) :: y
print *, precision(x), range(x) print *, precision(y), range(y) end program prec_and_range