6 real(4) :: r
= 42.7, r1
, r2
7 real(8) :: s
= 42.7D0
, s1
, s2
11 if (abs(r1
- r2
) > 0.1) call abort()
15 if (abs(r1
- r2
) > 0.1) call abort()
19 if (abs(s1
- s2
) > 0.1) call abort()
23 if (abs(s1
- s2
) > 0.1) call abort()
26 end program aint_anint_1