From f3007348c3fdb811969f942a6b3466f372067fda Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sat, 4 Dec 2010 14:08:12 +0100 Subject: re PR libfortran/46584 (FAIL: gfortran.dg/quad_1.f90 -O (test for excess errors)) 2010-12-04 Tobias Burnus PR fortran/46584 * gfortran.dg/quad_1.f90: Remove some complex math checks as they fail on some non-libquadmath systems. From-SVN: r167455 --- gcc/testsuite/ChangeLog | 7 +++++++ gcc/testsuite/gfortran.dg/quad_1.f90 | 10 ++++++---- 2 files changed, 13 insertions(+), 4 deletions(-) (limited to 'gcc') diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e48bf78..2cea754 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2010-12-04 Tobias Burnus + + 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 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 --- 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 -- cgit v1.1