OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [csqrt_2.f] - Blame information for rev 154

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
c { dg-do run { xfail *-*-linux-gnu } }
2
c 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
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.