* 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 0468506..ece39bc 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 857d557..e760d4c 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 8c4f0d9..10a6e96 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 15706b9..49b8eaa 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 087dfd3..c92f45b 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 c26ad90..a882da0 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 e309110..0564d0d 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 fc9701c..9071a41 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 918943f..26d850d 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" } }