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 f008afc59e7ac6aae62080496743d3191d7a4b07..0af8d11ad80ae6909400ee39afc5d0693b2c42d2 100644 (file)
--- 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 0c2f98b832aabe3a66c9a9c00b7d5af066469a0e..20dc4c48a28738f4fcb4f532822e9f28b49fe97d 100644 (file)
--- 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 b27210bc646d86ce4f157af80b02c99f3d6b4456..9fda1eb580aae425c25d957af57d3a7447adca4f 100644 (file)
--- 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
 !