Commit 0d6d338f by Ulrich Weigand Committed by Ulrich Weigand

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
parent 49efd4dc
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> 2012-02-27 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/aggr19.adb: New test. * gnat.dg/aggr19.adb: New test.
......
...@@ -18,11 +18,13 @@ extern void abort (void); ...@@ -18,11 +18,13 @@ extern void abort (void);
abort (); \ abort (); \
} while (0) } while (0)
#ifndef __SPU__
void void
comparef (float a, float b) comparef (float a, float b)
{ {
COMPARE_BODY (a, b, float, __builtin_copysignf); COMPARE_BODY (a, b, float, __builtin_copysignf);
} }
#endif
void void
compare (double a, double b) compare (double a, double b)
...@@ -36,12 +38,14 @@ comparel (long double a, long double b) ...@@ -36,12 +38,14 @@ comparel (long double a, long double b)
COMPARE_BODY (a, b, long double, __builtin_copysignl); COMPARE_BODY (a, b, long double, __builtin_copysignl);
} }
#ifndef __SPU__
void void
comparecf (_Complex float a, float r, float i) comparecf (_Complex float a, float r, float i)
{ {
comparef (__real__ a, r); comparef (__real__ a, r);
comparef (__imag__ a, i); comparef (__imag__ a, i);
} }
#endif
void void
comparec (_Complex double a, double r, double i) comparec (_Complex double a, double r, double i)
...@@ -90,8 +94,10 @@ comparecl (_Complex long double a, long double r, long double i) ...@@ -90,8 +94,10 @@ comparecl (_Complex long double a, long double r, long double i)
void void
check_float (void) check_float (void)
{ {
#ifndef __SPU__
ALL_CHECKS (0.0f, -0.0f, __builtin_nanf(""), __builtin_inff(), ALL_CHECKS (0.0f, -0.0f, __builtin_nanf(""), __builtin_inff(),
float, comparecf); float, comparecf);
#endif
} }
void void
......
! { dg-do run } ! { dg-do run }
! { dg-add-options ieee } ! { dg-add-options ieee }
! { dg-skip-if "Too big for local store" { spu-*-* } { "*" } { "" } }
! !
! Solve a diffusion problem using an object-oriented approach ! Solve a diffusion problem using an object-oriented approach
! !
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment