URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
c { dg-do run }
|
c { dg-do run }
|
c Fix PR libgfortran/24313
|
c Fix PR libgfortran/24313
|
complex x, y
|
complex x, y
|
complex z
|
complex z
|
z = cmplx(0.707106, -0.707106)
|
z = cmplx(0.707106, -0.707106)
|
x = cmplx(0.0,-1.0)
|
x = cmplx(0.0,-1.0)
|
y = sqrt(x)
|
y = sqrt(x)
|
if (abs(y - z) / abs(z) > 1.e-4) call abort
|
if (abs(y - z) / abs(z) > 1.e-4) call abort
|
|
|
x = cmplx(tiny(1.),-1.0)
|
x = cmplx(tiny(1.),-1.0)
|
y = sqrt(x)
|
y = sqrt(x)
|
if (abs(y - z) / abs(z) > 1.e-4) call abort
|
if (abs(y - z) / abs(z) > 1.e-4) call abort
|
|
|
x = cmplx(-tiny(1.),-1.0)
|
x = cmplx(-tiny(1.),-1.0)
|
y = sqrt(x)
|
y = sqrt(x)
|
if (abs(y - z) / abs(z) > 1.e-4) call abort
|
if (abs(y - z) / abs(z) > 1.e-4) call abort
|
|
|
end
|
end
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.