re PR testsuite/51875 (FAIL: gfortran.dg/guality/pr41558.f90 -O0 line 7 s == 'foo')

	PR testsuite/51875
	* gfortran.dg/guality/pr41558.f90: Skip on 32-bit hppa*-*-hpux*.

From-SVN: r183688

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 419077ca9f8f0f0a03d060040ff841165d906a3e..c151b3a5d7a4e60828254558b53341affb7db31b 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,8 @@
 2012-01-29  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
 
+       PR testsuite/51875
+       * gfortran.dg/guality/pr41558.f90: Skip on 32-bit hppa*-*-hpux*.
+
        * g++.dg/ext/visibility/template10.C: Fix typo.
 
        * gcc.dg/tm/pr51472.c: Add -fno-common option on hppa-*-hpux*.

diff --git a/gcc/testsuite/gfortran.dg/guality/pr41558.f90 b/gcc/testsuite/gfortran.dg/guality/pr41558.f90
index 9d1e833998feb662e15a907ca979df9f5213f926..e26914caf2f1e73943ea9eca8113f71fbd026da7 100644 (file)
--- a/gcc/testsuite/gfortran.dg/guality/pr41558.f90
+++ b/gcc/testsuite/gfortran.dg/guality/pr41558.f90
@@ -1,5 +1,6 @@
 ! PR debug/41558
 ! { dg-do run }
+! { dg-skip-if "PR testsuite/51875" { { hppa*-*-hpux* } && { ! hppa*64*-*-* } } { "*" } { "" } }
 ! { dg-options "-g" }
 
 subroutine f (s)