1 !Program to test EXPONENT and FRACTION intrinsic function.
3 program test_exponent_fraction
8 equivalence (x, i), (y, j)
65 y = (y * 2.) * (2. ** (z - 1))
67 y = (y / 2.) * (2. ** (z + 1))
69 if (abs (x - y) .gt. spacing (max (abs (x), abs (y)))) call abort()
78 y = (y * 2._8) * (2._8 ** (z - 1))
80 y = (y / 2._8) * (2._8 ** (z + 1))
82 if (abs (x - y) .gt. spacing (max (abs (x), abs(y)))) call abort()