From 0d6d338f5bf4846b4a5b11256b5ca506a9a5fdba Mon Sep 17 00:00:00 2001 From: Ulrich Weigand Date: Mon, 27 Feb 2012 15:30:32 +0000 Subject: 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 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gcc.dg/torture/builtin-complex-1.c | 6 ++++++ gcc/testsuite/gfortran.dg/typebound_operator_9.f03 | 1 + 3 files changed, 12 insertions(+) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f008afc..0af8d11 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2012-02-27 Ulrich Weigand + + * 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 * 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 --- 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 --- 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 ! -- cgit v1.1