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()