RosettaCodeData/Task/Infinity/Fortran/infinity-2.f

3 lines
38 B
Forth

real :: x
real :: huge_real = huge(x)