From: Ulrich Weigand <uweigand@de.ibm.com>
Date: Mon, 27 Feb 2012 15:30:32 +0000 (+0000)
Subject: typebound_operator_9.f03: Skip on SPU.
X-Git-Tag: releases/gcc-4.7.0~191
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=0d6d338f5bf4846b4a5b11256b5ca506a9a5fdba;p=thirdparty%2Fgcc.git

typebound_operator_9.f03: Skip on SPU.

	* gfortran.dg/typebound_operator_9.f03: Skip on SPU.
	* gcc.dg/torture/builtin-complex-1.c: Skip "float" tests on SPU.

From-SVN: r184602
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f008afc59e7a..0af8d11ad80a 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-27  Ulrich Weigand  <Ulrich.Weigand@de.ibm.com>
+
+	* gfortran.dg/typebound_operator_9.f03: Skip on SPU.
+	* gcc.dg/torture/builtin-complex-1.c: Skip "float" tests on SPU.
+
 2012-02-27  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gnat.dg/aggr19.adb: New test.
diff --git a/gcc/testsuite/gcc.dg/torture/builtin-complex-1.c b/gcc/testsuite/gcc.dg/torture/builtin-complex-1.c
index 0c2f98b832aa..20dc4c48a287 100644
--- a/gcc/testsuite/gcc.dg/torture/builtin-complex-1.c
+++ b/gcc/testsuite/gcc.dg/torture/builtin-complex-1.c
@@ -18,11 +18,13 @@ extern void abort (void);
       abort ();								\
   } while (0)
 
+#ifndef __SPU__
 void
 comparef (float a, float b)
 {
   COMPARE_BODY (a, b, float, __builtin_copysignf);
 }
+#endif
 
 void
 compare (double a, double b)
@@ -36,12 +38,14 @@ comparel (long double a, long double b)
   COMPARE_BODY (a, b, long double, __builtin_copysignl);
 }
 
+#ifndef __SPU__
 void
 comparecf (_Complex float a, float r, float i)
 {
   comparef (__real__ a, r);
   comparef (__imag__ a, i);
 }
+#endif
 
 void
 comparec (_Complex double a, double r, double i)
@@ -90,8 +94,10 @@ comparecl (_Complex long double a, long double r, long double i)
 void
 check_float (void)
 {
+#ifndef __SPU__
   ALL_CHECKS (0.0f, -0.0f, __builtin_nanf(""), __builtin_inff(),
 	      float, comparecf);
+#endif
 }
 
 void
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_9.f03 b/gcc/testsuite/gfortran.dg/typebound_operator_9.f03
index b27210bc646d..9fda1eb580aa 100644
--- a/gcc/testsuite/gfortran.dg/typebound_operator_9.f03
+++ b/gcc/testsuite/gfortran.dg/typebound_operator_9.f03
@@ -1,5 +1,6 @@
 ! { dg-do run }
 ! { dg-add-options ieee }
+! { dg-skip-if "Too big for local store" { spu-*-* } { "*" } { "" } }
 !
 !     Solve a diffusion problem using an object-oriented approach
 !