From patchwork Sat Dec 4 13:08:21 2010 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Tobias Burnus X-Patchwork-Id: 74262 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) by ozlabs.org (Postfix) with SMTP id 04EBCB70A3 for ; Sun, 5 Dec 2010 00:08:36 +1100 (EST) Received: (qmail 27223 invoked by alias); 4 Dec 2010 13:08:31 -0000 Received: (qmail 27013 invoked by uid 22791); 4 Dec 2010 13:08:30 -0000 X-SWARE-Spam-Status: No, hits=-1.8 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_NONE, TW_IB X-Spam-Check-By: sourceware.org Received: from mx02.qsc.de (HELO mx02.qsc.de) (213.148.130.14) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Sat, 04 Dec 2010 13:08:24 +0000 Received: from [192.168.178.22] (port-92-204-53-80.dynamic.qsc.de [92.204.53.80]) by mx02.qsc.de (Postfix) with ESMTP id 73D0C1EC96; Sat, 4 Dec 2010 14:08:21 +0100 (CET) Message-ID: <4CFA3D45.4030002@net-b.de> Date: Sat, 04 Dec 2010 14:08:21 +0100 From: Tobias Burnus User-Agent: Mozilla/5.0 (X11; U; Linux x86_64; de; rv:1.9.2.12) Gecko/20101026 SUSE/3.1.6 Thunderbird/3.1.6 MIME-Version: 1.0 To: gcc patches , gfortran Subject: [Patch, committed, Fortran] Disable complex checks in gfortran.dg/quad_1.f90 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org 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 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 + + 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