2 c Fix PR libgfortran/24313
5 z
= cmplx
(0.707106, -0.707106)
8 if (abs
(y
- z
) / abs
(z
) > 1.e
-4) STOP 1
10 x
= cmplx
(tiny
(1.),-1.0)
12 if (abs
(y
- z
) / abs
(z
) > 1.e
-4) STOP 2
14 x
= cmplx
(-tiny
(1.),-1.0)
16 if (abs
(y
- z
) / abs
(z
) > 1.e
-4) STOP 3