* gfortran.dg/typebound_operator_9.f03: Skip on SPU.

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@184602 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f008afc..0af8d11 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 0c2f98b..20dc4c4 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 b27210b..9fda1eb 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
 !