* 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 0468506d4159e40ebffcd651f0582ec13888e732..ece39bc30e0bb837400599d03b7724809d8d7c25 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,20 @@
+2011-01-29  Ulrich Weigand  <Ulrich.Weigand@de.ibm.com>
+
+       * 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  <burnus@net-b.de>
 
        PR fortran/47531

diff --git a/gcc/testsuite/gfortran.dg/bessel_6.f90 b/gcc/testsuite/gfortran.dg/bessel_6.f90
index 857d557fe303616aca01d42b9070c601b2705bce..e760d4cdb74959531b919ec5c9d8a35f5109bf2b 100644 (file)
--- 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 8c4f0d915a34b15023354b8319e3bd8a18dc3adc..10a6e966dfa0b99ff052fee55250dd59a8ff785d 100644 (file)
--- 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 15706b9b3976e732b9c222d893c1fbaafa96b2a5..49b8eaaa68e835329e292845cd5af3a94472e373 100644 (file)
--- 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 087dfd38e19ba094b4902ab4d3a44e388956a8c7..c92f45b047682fdd57b2443ad9bbfc48214d178e 100644 (file)
--- 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 c26ad90fbe27289416ed0959524643e1ff9594f8..a882da042cd9aed8ab44d0dee9bfa75602b0057c 100644 (file)
--- 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 e30911026972772a10b79c0e701840fd61e93edf..0564d0d50647ddc7948be01bed94451dbd66a97b 100644 (file)
--- 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 fc9701ce86d373d30fb7ef19533f0d6839fba649..9071a41f43c2760272e7229f4086da6a6cf6ac07 100644 (file)
--- 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 918943f93a90062f7c9bb811d0052f7d72d9d4b5..26d850de961e8c3978fd544f8e13037fcdae2b6e 100644 (file)
--- 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" } }