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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@167455 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e48bf78..2cea754 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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

diff --git a/gcc/testsuite/gfortran.dg/quad_1.f90 b/gcc/testsuite/gfortran.dg/quad_1.f90
index 7d4322e..e75faac 100644 (file)
--- a/gcc/testsuite/gfortran.dg/quad_1.f90
+++ b/gcc/testsuite/gfortran.dg/quad_1.f90
@@ -27,9 +27,11 @@ program test_qp
 
    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