11 real(kind
=4) :: x4
, y4
12 real(kind
=8) :: x8
, y8
14 x8
= 1.9_8
; x4
= 1.9_4
15 y8
= -2.1_8
; y4
= -2.1_4
17 call check(hypot(x8
,y8
), hypot(1.9_8
,-2.1_8
))
18 call check(hypot(x4
,y4
), hypot(1.9_4
,-2.1_4
))
21 subroutine check_r4 (a
, b
)
22 real(kind
=4), intent(in
) :: a
, b
23 if (abs(a
- b
) > 1.e
-5 * abs(b
)) STOP 1
25 subroutine check_r8 (a
, b
)
26 real(kind
=8), intent(in
) :: a
, b
27 if (abs(a
- b
) > 1.e
-7 * abs(b
)) STOP 2