From: uweigand Date: Sat, 29 Jan 2011 19:18:06 +0000 (+0000) Subject: * gfortran.dg/bessel_6.f90: XFAIL on spu-*-*. X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=933842693fd730271f41540f14ac1f71a5c444f4;p=thirdparty%2Fgcc.git * gfortran.dg/bessel_6.f90: XFAIL on spu-*-*. * gfortran.dg/bessel_7.f90: Likewise. * gfortran.dg/erf_2.F90: Likewise. Always run with -O0. * gfortran.dg/complex_intrinsics_5.f90: Increase "epsilon". * gfortran.dg/sum_init_expr.f03: Likewise. * gfortran.dg/realloc_on_assign_2.f03: Skip on spu-*-*. * gfortran.dg/lto/20091016-1_0.f90: Replace -shared with -r -nostdlib. * gfortran.dg/vect/fast-math-vect-8.f90: Check for vectorized loop only on "vect_intfloat_cvt" targets. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@169393 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0468506d4159..ece39bc30e0b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,20 @@ +2011-01-29 Ulrich Weigand + + * gfortran.dg/bessel_6.f90: XFAIL on spu-*-*. + * gfortran.dg/bessel_7.f90: Likewise. + * gfortran.dg/erf_2.F90: Likewise. Always run with -O0. + + * gfortran.dg/complex_intrinsics_5.f90: Increase "epsilon". + * gfortran.dg/sum_init_expr.f03: Likewise. + + * gfortran.dg/realloc_on_assign_2.f03: Skip on spu-*-*. + + * gfortran.dg/lto/20091016-1_0.f90: Replace -shared with + -r -nostdlib. + + * gfortran.dg/vect/fast-math-vect-8.f90: Check for vectorized + loop only on "vect_intfloat_cvt" targets. + 2011-01-29 Tobias Burnus PR fortran/47531 diff --git a/gcc/testsuite/gfortran.dg/bessel_6.f90 b/gcc/testsuite/gfortran.dg/bessel_6.f90 index 857d557fe303..e760d4cdb749 100644 --- a/gcc/testsuite/gfortran.dg/bessel_6.f90 +++ b/gcc/testsuite/gfortran.dg/bessel_6.f90 @@ -1,8 +1,11 @@ -! { dg-do run } +! { dg-do run { xfail spu-*-* } } ! ! PR fortran/36158 ! PR fortran/33197 ! +! XFAILed for SPU targets since we don't have an accurate library +! implementation of the single-precision Bessel functions. +! ! Run-time tests for transformations BESSEL_JN ! implicit none diff --git a/gcc/testsuite/gfortran.dg/bessel_7.f90 b/gcc/testsuite/gfortran.dg/bessel_7.f90 index 8c4f0d915a34..10a6e966dfa0 100644 --- a/gcc/testsuite/gfortran.dg/bessel_7.f90 +++ b/gcc/testsuite/gfortran.dg/bessel_7.f90 @@ -1,4 +1,4 @@ -! { dg-do run { xfail *-*-mingw* } } +! { dg-do run { xfail *-*-mingw* spu-*-* } } ! ! PR fortran/36158 ! PR fortran/33197 @@ -7,6 +7,9 @@ ! of BESSEL_YN(n,x) has different results. It returns NAN rather than ! -INF for "x=0.0" and all "n". ! +! XFAILed for SPU targets since we don't have an accurate library +! implementation of the single-precision Bessel functions. +! ! Run-time tests for transformations BESSEL_YN ! implicit none diff --git a/gcc/testsuite/gfortran.dg/complex_intrinsic_5.f90 b/gcc/testsuite/gfortran.dg/complex_intrinsic_5.f90 index 15706b9b3976..49b8eaaa68e8 100644 --- a/gcc/testsuite/gfortran.dg/complex_intrinsic_5.f90 +++ b/gcc/testsuite/gfortran.dg/complex_intrinsic_5.f90 @@ -9,7 +9,7 @@ ! module test implicit none - real(4), parameter :: eps4 = epsilon(0.0_4)*2.0_4 + real(4), parameter :: eps4 = epsilon(0.0_4)*4.0_4 real(8), parameter :: eps8 = epsilon(0.0_8)*2.0_8 interface check procedure check4, check8 diff --git a/gcc/testsuite/gfortran.dg/erf_2.F90 b/gcc/testsuite/gfortran.dg/erf_2.F90 index 087dfd38e19b..c92f45b04768 100644 --- a/gcc/testsuite/gfortran.dg/erf_2.F90 +++ b/gcc/testsuite/gfortran.dg/erf_2.F90 @@ -1,7 +1,10 @@ -! { dg-do run } -! { dg-options "-fno-range-check -ffree-line-length-none " } +! { dg-do run { xfail spu-*-* } } +! { dg-options "-fno-range-check -ffree-line-length-none -O0" } ! { dg-add-options ieee } ! +! XFAILed for SPU targets because our library implementation of +! the double-precision erf/erfc functions is not accurate enough. +! ! Check that simplification functions and runtime library agree on ERF, ! ERFC and ERFC_SCALED. diff --git a/gcc/testsuite/gfortran.dg/lto/20091016-1_0.f90 b/gcc/testsuite/gfortran.dg/lto/20091016-1_0.f90 index c26ad90fbe27..a882da042cd9 100644 --- a/gcc/testsuite/gfortran.dg/lto/20091016-1_0.f90 +++ b/gcc/testsuite/gfortran.dg/lto/20091016-1_0.f90 @@ -1,5 +1,5 @@ ! { dg-lto-do link } -! { dg-lto-options {{-flto -g -fPIC -shared} {-O -flto -g -fPIC -shared}} } +! { dg-lto-options {{-flto -g -fPIC -r -nostdlib} {-O -flto -g -fPIC -r -nostdlib}} } FUNCTION makenumberstring(x) IMPLICIT NONE diff --git a/gcc/testsuite/gfortran.dg/realloc_on_assign_2.f03 b/gcc/testsuite/gfortran.dg/realloc_on_assign_2.f03 index e30911026972..0564d0d50647 100644 --- a/gcc/testsuite/gfortran.dg/realloc_on_assign_2.f03 +++ b/gcc/testsuite/gfortran.dg/realloc_on_assign_2.f03 @@ -1,4 +1,5 @@ ! { dg-do run } +! { dg-skip-if "Too big for local store" { spu-*-* } { "*" } { "" } } ! Tests the patch that implements F2003 automatic allocation and ! reallocation of allocatable arrays on assignment. The tests ! below were generated in the final stages of the development of diff --git a/gcc/testsuite/gfortran.dg/sum_init_expr.f03 b/gcc/testsuite/gfortran.dg/sum_init_expr.f03 index fc9701ce86d3..9071a41f43c2 100644 --- a/gcc/testsuite/gfortran.dg/sum_init_expr.f03 +++ b/gcc/testsuite/gfortran.dg/sum_init_expr.f03 @@ -52,14 +52,14 @@ CONTAINS SUBROUTINE rlib (array, result) REAL, DIMENSION(:,:), INTENT(in) :: array REAL, INTENT(in) :: result - IF (ABS(SUM(array) - result) > 2e-6) CALL abort() + IF (ABS(SUM(array) - result) > 4e-6) CALL abort() END SUBROUTINE SUBROUTINE rlib_with_dim (array, dim, result) REAL, DIMENSION(:,:), INTENT(in) :: array INTEGER, INTENT(iN) :: dim REAL, DIMENSION(:), INTENT(in) :: result - IF (ANY (ABS(SUM (array, dim=dim) - result) > 2e-6)) CALL abort() + IF (ANY (ABS(SUM (array, dim=dim) - result) > 4e-6)) CALL abort() END SUBROUTINE END diff --git a/gcc/testsuite/gfortran.dg/vect/fast-math-vect-8.f90 b/gcc/testsuite/gfortran.dg/vect/fast-math-vect-8.f90 index 918943f93a90..26d850de961e 100644 --- a/gcc/testsuite/gfortran.dg/vect/fast-math-vect-8.f90 +++ b/gcc/testsuite/gfortran.dg/vect/fast-math-vect-8.f90 @@ -89,5 +89,6 @@ contains end module solv_cap -! { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" } } + +! { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" { target vect_intfloat_cvt } } } ! { dg-final { cleanup-tree-dump "vect" } }