[Bug testsuite/51057] FAIL: gfortran.dg/quad_2.f90 -O0 execution test on powerpc*-*-*

[dominiq at lps dot ens.fr]

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

?