<Example Program>

Program fraction_example
  Real :: x(3) = [ 1.5*2.0**(-100), 1.5, 1.5*2.0**100 ]
  Integer i
  Do i=1, Size(x)
    Print *, x(i), '=', Fraction(x(i)), '*', Radix(x), '**', Exponent(x(i))
  End Do
End Program
Execution Results

   1.1832914E-30 =   0.7500000 * 2 ** -99
   1.5000000 =   0.7500000 * 2 ** 1
   1.9014759E+30 =   0.7500000 * 2 ** 101