PROGRAM TEST_OF_R1MACH
IMPLICIT NONE
REAL :: R1MACH
REAL, DIMENSION(5) :: RTEMP
INTEGER, DIMENSION(5) :: ITEMP
INTEGER :: I
EQUIVALENCE (RTEMP, ITEMP)
DO I = 1, 5
   RTEMP(I) = R1MACH(I)
END DO
WRITE(6,10) ITEMP
10 FORMAT(Z8)
END