OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

typebound_operator_9.f03: Skip on SPU.

Browse Source 
* gfortran.dg/typebound_operator_9.f03: Skip on SPU.
	* gcc.dg/torture/builtin-complex-1.c: Skip "float" tests on SPU.

From-SVN: r184602
This commit is contained in:
Ulrich Weigand 2012-02-27 15:30:32 +00:00 committed by Ulrich Weigand
parent 49efd4dcbf
commit 0d6d338f5b
3 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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.

6
gcc/testsuite/gcc.dg/torture/builtin-complex-1.c
View File

@ -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

1
gcc/testsuite/gfortran.dg/typebound_operator_9.f03
View File

@ -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
!