EXPONENT (The GNU Fortran Compiler) (original) (raw)

program test_exponent real :: x = 1.0 integer :: i i = exponent(x) print *, i print *, exponent(0.0) end program test_exponent