From e09a17b70a1cfbaf8ebd71bdc1212ee3ac7f36bd Mon Sep 17 00:00:00 2001
From: dje <dje@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 19 Jul 2013 14:25:26 +0000
Subject: [PATCH]         *
 gfortran.fortran-torture/execute/intrinsic_nearest.x: Skip AIX.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@201057 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/testsuite/ChangeLog                                            | 4 ++++
 gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.x | 4 ++++
 2 files changed, 8 insertions(+)

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 9c8bfe33102..141ac020a16 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2013-07-19  David Edelsohn  <dje.gcc@gmail.com>
+
+	* gfortran.fortran-torture/execute/intrinsic_nearest.x: Skip AIX.
+
 2013-07-19  Georg-Johann Lay  <avr@gjlay.de>
 
 	PR target/57516
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.x b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.x
index 2d2b6ee8e68..ec00f036c33 100644
--- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.x
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.x
@@ -2,5 +2,9 @@ if [istarget "spu-*-*"] {
     # No Inf/NaN support on SPU.
     return 1
 }
+if [istarget "powerpc-ibm-aix*"] {
+    # z'7f7fffff' value not preserved by lfs instruction.
+    return 1
+}
 add-ieee-options
 return 0
-- 
2.11.4.GIT