From ba981e00285dff19af2bbb97d6d1d94e8769390f Mon Sep 17 00:00:00 2001
From: David Edelsohn <dje.gcc@gmail.com>
Date: Fri, 19 Jul 2013 14:28:16 +0000
Subject: [PATCH] intrinsic_nearest.x: Skip on AIX.
* gfortran.fortran-torture/execute/intrinsic_nearest.x: Skip on AIX.
* gfortran.dg/nint_2.f90: Correct AIX target name to skip.
* gfortran.dg/guality/guality.exp: Skip on AIX.
From-SVN: r201058
---
gcc/testsuite/ChangeLog | 4 +++-
gcc/testsuite/gfortran.dg/guality/guality.exp | 5 +++++
gcc/testsuite/gfortran.dg/nint_2.f90 | 2 +-
3 files changed, 9 insertions(+), 2 deletions(-)
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 141ac020a166..f8994a86b59c 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,6 +1,8 @@
2013-07-19 David Edelsohn <dje.gcc@gmail.com>
- * gfortran.fortran-torture/execute/intrinsic_nearest.x: Skip AIX.
+ * gfortran.fortran-torture/execute/intrinsic_nearest.x: Skip on AIX.
+ * gfortran.dg/nint_2.f90: Correct AIX target name to skip.
+ * gfortran.dg/guality/guality.exp: Skip on AIX.
2013-07-19 Georg-Johann Lay <avr@gjlay.de>
diff --git a/gcc/testsuite/gfortran.dg/guality/guality.exp b/gcc/testsuite/gfortran.dg/guality/guality.exp
index 2444d8de7b8c..b3f64fbed721 100644
--- a/gcc/testsuite/gfortran.dg/guality/guality.exp
+++ b/gcc/testsuite/gfortran.dg/guality/guality.exp
@@ -8,6 +8,11 @@ if { [istarget *-*-darwin*] } {
return
}
+if { [istarget "powerpc-ibm-aix*"] } {
+ set torture_execute_xfail "powerpc-ibm-aix*"
+ return
+}
+
dg-init
global GDB
diff --git a/gcc/testsuite/gfortran.dg/nint_2.f90 b/gcc/testsuite/gfortran.dg/nint_2.f90
index 7520727f0424..9f2705318fbc 100644
--- a/gcc/testsuite/gfortran.dg/nint_2.f90
+++ b/gcc/testsuite/gfortran.dg/nint_2.f90
@@ -4,7 +4,7 @@
! http://gcc.gnu.org/ml/fortran/2005-04/msg00139.html
!
! { dg-do run }
-! { dg-xfail-run-if "PR 33271, math library bug" { powerpc-ibm-aix powerpc*-*-linux* *-*-mingw* } { "-O0" } { "" } }
+! { dg-xfail-run-if "PR 33271, math library bug" { powerpc-ibm-aix* powerpc*-*-linux* *-*-mingw* } { "-O0" } { "" } }
real(kind=8) :: a
integer(kind=8) :: i1, i2
real :: b
--
GitLab