Commit 9a823874 by Ulrich Weigand Committed by Ulrich Weigand

bessel_6.f90: XFAIL on spu-*-*.

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

From-SVN: r169393
parent 7320cf09
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> 2011-01-29 Tobias Burnus <burnus@net-b.de>
PR fortran/47531 PR fortran/47531
......
! { dg-do run } ! { dg-do run { xfail spu-*-* } }
! !
! PR fortran/36158 ! PR fortran/36158
! PR fortran/33197 ! 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 ! Run-time tests for transformations BESSEL_JN
! !
implicit none implicit none
......
! { dg-do run { xfail *-*-mingw* } } ! { dg-do run { xfail *-*-mingw* spu-*-* } }
! !
! PR fortran/36158 ! PR fortran/36158
! PR fortran/33197 ! PR fortran/33197
...@@ -7,6 +7,9 @@ ...@@ -7,6 +7,9 @@
! of BESSEL_YN(n,x) has different results. It returns NAN rather than ! of BESSEL_YN(n,x) has different results. It returns NAN rather than
! -INF for "x=0.0" and all "n". ! -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 ! Run-time tests for transformations BESSEL_YN
! !
implicit none implicit none
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
! !
module test module test
implicit none 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 real(8), parameter :: eps8 = epsilon(0.0_8)*2.0_8
interface check interface check
procedure check4, check8 procedure check4, check8
......
! { dg-do run } ! { dg-do run { xfail spu-*-* } }
! { dg-options "-fno-range-check -ffree-line-length-none " } ! { dg-options "-fno-range-check -ffree-line-length-none -O0" }
! { dg-add-options ieee } ! { 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, ! Check that simplification functions and runtime library agree on ERF,
! ERFC and ERFC_SCALED. ! ERFC and ERFC_SCALED.
......
! { dg-lto-do link } ! { 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) FUNCTION makenumberstring(x)
IMPLICIT NONE IMPLICIT NONE
......
! { dg-do run } ! { dg-do run }
! { dg-skip-if "Too big for local store" { spu-*-* } { "*" } { "" } }
! Tests the patch that implements F2003 automatic allocation and ! Tests the patch that implements F2003 automatic allocation and
! reallocation of allocatable arrays on assignment. The tests ! reallocation of allocatable arrays on assignment. The tests
! below were generated in the final stages of the development of ! below were generated in the final stages of the development of
......
...@@ -52,14 +52,14 @@ CONTAINS ...@@ -52,14 +52,14 @@ CONTAINS
SUBROUTINE rlib (array, result) SUBROUTINE rlib (array, result)
REAL, DIMENSION(:,:), INTENT(in) :: array REAL, DIMENSION(:,:), INTENT(in) :: array
REAL, INTENT(in) :: result REAL, INTENT(in) :: result
IF (ABS(SUM(array) - result) > 2e-6) CALL abort() IF (ABS(SUM(array) - result) > 4e-6) CALL abort()
END SUBROUTINE END SUBROUTINE
SUBROUTINE rlib_with_dim (array, dim, result) SUBROUTINE rlib_with_dim (array, dim, result)
REAL, DIMENSION(:,:), INTENT(in) :: array REAL, DIMENSION(:,:), INTENT(in) :: array
INTEGER, INTENT(iN) :: dim INTEGER, INTENT(iN) :: dim
REAL, DIMENSION(:), INTENT(in) :: result 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 SUBROUTINE
END END
......
...@@ -89,5 +89,6 @@ contains ...@@ -89,5 +89,6 @@ contains
end module solv_cap 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" } } ! { dg-final { cleanup-tree-dump "vect" } }
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