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>
PR fortran/47531
......
! { 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
......
! { 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
......
......@@ -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
......
! { 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.
......
! { 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
......
! { 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
......
......@@ -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
......
......@@ -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" } }
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