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