[Bug testsuite/51057] New: 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

             Bug #: 51057
           Summary: FAIL: gfortran.dg/quad_2.f90  -O0  execution test on
                    powerpc*-*-*
    Classification: Unclassified
           Product: gcc
           Version: 4.7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: testsuite
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: dominiq@lps.ens.fr
                CC: burnus@net-b.de
              Host: powerpc*-*-*
            Target: powerpc*-*-*
             Build: powerpc*-*-*


gfortran.dg/quad_2.f90 fails on powerpc*-*-* (see
http://gcc.gnu.org/ml/gcc-testresults/2011-11/msg00620.html ). This is due to a
less precise representation of REAL(16) on ppc (i.e., two REAL(8)) than on
Intel platforms. The following patch fixes the failure

--- /opt/gcc/work/gcc/testsuite/gfortran.dg/quad_2.f90    2011-11-06
20:55:43.000000000 +0100
+++ quad_2_db.f90    2011-11-09 14:06:48.000000000 +0100
@@ -48,8 +48,8 @@ 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 (str3(1:37) /= "   1.41421356237309504880168872420969") call abort()
+       if (str4(1:34) /= "1.41421356237309504880168872420969") call abort()
        block
          real(qp), volatile :: fp2a
          fp2a = 2.0_qp