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