Patchwork [committed,Fortran] Disable complex checks in gfortran.dg/quad_1.f90

login
register
mail settings
Submitter Tobias Burnus
Date Dec. 4, 2010, 1:08 p.m.
Message ID <4CFA3D45.4030002@net-b.de>
Download mbox | patch
Permalink /patch/74262/
State New
Headers show

Comments

Tobias Burnus - Dec. 4, 2010, 1:08 p.m.
The quad_1.f90 checks test the highest available floating point type. 
This works with libquadmath but it fails on systems with REAL(16) 
matching "long double" if the system's libm does not implement the C99 
complex math functions.

The simple solution is to disable those functions, which I did now.

Committed as Rev. 167455

Tobias

Patch

Index: gcc/testsuite/gfortran.dg/quad_1.f90
===================================================================
--- gcc/testsuite/gfortran.dg/quad_1.f90	(Revision 167454)
+++ gcc/testsuite/gfortran.dg/quad_1.f90	(Arbeitskopie)
@@ -27,9 +27,11 @@ 
 
    print *, z
    print *, PI*cmplx(0.0_qp, 1.0_qp)
-   print *, 16*atan(0.2_QP)-4*atan(Z1/239)
-   print *, sin(z)
-   print *, cos(z)
-   print *, sinh(z) ! asinh not implemented, cf. PR 46416
+! Disable the complex functions as not all "long-double" systems have
+! a libm with those C99 functions. (libquadmath had), cf. PR 46584
+!   print *, 16*atan(0.2_QP)-4*atan(Z1/239)
+!   print *, sin(z)
+!   print *, cos(z)
+!   print *, sinh(z) ! asinh not implemented in libquadmath, cf. PR 46416
    print *, precision(z)
 end program test_qp
Index: gcc/testsuite/ChangeLog
===================================================================
--- gcc/testsuite/ChangeLog	(Revision 167454)
+++ gcc/testsuite/ChangeLog	(Arbeitskopie)
@@ -1,3 +1,10 @@ 
+2010-12-04  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/46584
+	* gfortran.dg/quad_1.f90: Remove some complex
+	math checks as they fail on some non-libquadmath
+	systems.
+
 2010-12-04  Daniel Kraft  <d@domob.eu>
 
 	PR fortran/46794