1c { dg-do run } 2c Fix PR libgfortran/24313 3 complex x, y 4 complex z 5 z = cmplx(0.707106, -0.707106) 6 x = cmplx(0.0,-1.0) 7 y = sqrt(x) 8 if (abs(y - z) / abs(z) > 1.e-4) call abort 9 10 x = cmplx(tiny(1.),-1.0) 11 y = sqrt(x) 12 if (abs(y - z) / abs(z) > 1.e-4) call abort 13 14 x = cmplx(-tiny(1.),-1.0) 15 y = sqrt(x) 16 if (abs(y - z) / abs(z) > 1.e-4) call abort 17 18 end 19 20