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