Program spacing_example
  Implicit None
  Real :: x(5) = [ 0.0, 1.25, 1.5, 15.0, -1.5*2.0**50 ]
  Print 1,Spacing(x)
1 Format(1X,99ES15.6)
  Print 1, Tiny(x), Real(Radix(x(2:)),Kind(x(2:)))**Max(Exponent(x(2:))-Digits(x),MinExponent(x)-1)
End Program