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>
* gnat.dg/aggr19.adb: New test.
......
......@@ -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
......
! { 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
!
......
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