RosettaCodeData/Task/Infinity/Fortran/infinity-2.f
2023-07-01 13:44:08 -04:00

2 lines
38 B
Forth

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