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

PROGRAM test_spacing INTEGER, PARAMETER :: SGL = SELECTED_REAL_KIND(p=6, r=37) INTEGER, PARAMETER :: DBL = SELECTED_REAL_KIND(p=13, r=200)

WRITE(,) spacing(1.0_SGL) ! "1.1920929E-07" on i686 WRITE(,) spacing(1.0_DBL) ! "2.220446049250313E-016" on i686 END PROGRAM