From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-375714-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 14318 invoked by alias); 3 Dec 2011 23:16:54 -0000
Received: (qmail 14306 invoked by uid 22791); 3 Dec 2011 23:16:53 -0000
X-SWARE-Spam-Status: No, hits=-2.8 required=5.0	tests=ALL_TRUSTED,AWL,BAYES_00,TW_IB
X-Spam-Check-By: sourceware.org
Received: from localhost (HELO gcc.gnu.org) (127.0.0.1)    by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Sat, 03 Dec 2011 23:16:36 +0000
From: "dominiq at lps dot ens.fr" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug testsuite/51057] FAIL: gfortran.dg/quad_2.f90  -O0  execution test on powerpc*-*-*
Date: Sat, 03 Dec 2011 23:16:00 -0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: testsuite
X-Bugzilla-Keywords:
X-Bugzilla-Severity: normal
X-Bugzilla-Who: dominiq at lps dot ens.fr
X-Bugzilla-Status: NEW
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Changed-Fields:
Message-ID: <bug-51057-4-GfsgmJVH6M@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-51057-4@http.gcc.gnu.org/bugzilla/>
References: <bug-51057-4@http.gcc.gnu.org/bugzilla/>
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
Content-Type: text/plain; charset="UTF-8"
MIME-Version: 1.0
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <gcc-bugs.gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
X-SW-Source: 2011-12/txt/msg00280.txt.bz2

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=51057

--- Comment #8 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2011-12-03 23:15:32 UTC ---
(In reply to comment #5)
> It's not a long list if you XFAIL this for all ppc systems.
>You need something along the lines
>
> ! { dg-do run { target { ! { ppc*-*-* } } } }

(In reply to comment #7)
> Did you read the thread?  I specifically recommended that
> the testcase should be XFAILed for the missing sqrtl, too;
> because no one is going to implement a suitable sqrtl in
> c99_functions.c.

So the list will be longer than ppc*-*-*.

> Lowering the accuracy of the test to allow ppc to pass opens up the
> possibility of missing a bug in libquadmath when someone makes a
> change to the library.

I am impressed by the coverage! what about

--- /opt/gcc/_gcc_clean/gcc/testsuite/gfortran.dg/quad_2.f90    2011-11-06
20:24:56.000000000 +0100
+++ /opt/gcc/work/gcc/testsuite/gfortran.dg/quad_2.f90    2011-12-04
00:08:16.000000000 +0100
@@ -48,8 +48,13 @@ program test_qp
      case (16)
        if (str1 /= "   1.00000000000000000000000000000000000") call abort()
        if (str2 /= "1.00000000000000000000000000000000000") call abort()
-       if (str3 /= "   1.41421356237309504880168872420969798") call abort()
-       if (str4 /= "1.41421356237309504880168872420969798") call abort()
+       if (size (real_kinds) >= 4) then
+         if (str3 /= "   1.41421356237309504880168872420969798") call abort()
+         if (str4 /= "1.41421356237309504880168872420969798") call abort()
+       else
+         if (str3(1:37) /= "   1.41421356237309504880168872420969") call
abort()
+         if (str4(1:34) /= "1.41421356237309504880168872420969") call abort()
+       end if
        block
          real(qp), volatile :: fp2a
          fp2a = 2.0_qp

?