From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Thu, 21 Nov 2013 11:37:07 +0000 (+0000)
Subject: re PR libfortran/59227 (FAIL: gfortran.dg/erf_3.F90  -O0  execution test)
X-Git-Tag: releases/gcc-4.9.0~2564
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=427a12dafc6541d7922bef44fc84024353de984d;p=thirdparty%2Fgcc.git

re PR libfortran/59227 (FAIL: gfortran.dg/erf_3.F90  -O0  execution test)

	PR libfortran/59227
	* gfortran.dg/erf_3.F90: XFAIL on spu-* and ia64-*-linux*.
	Make more generic for other platforms.

From-SVN: r205210
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f7986f2ebbbf..b29070fb11fd 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2013-11-21  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	PR libfortran/59227
+	* gfortran.dg/erf_3.F90: XFAIL on spu-* and ia64-*-linux*.
+	Make more generic for other platforms.
+
 2013-11-21  Oleg Endo  <olegendo@gcc.gnu.org>
 
 	PR target/53976
diff --git a/gcc/testsuite/gfortran.dg/erf_3.F90 b/gcc/testsuite/gfortran.dg/erf_3.F90
index fcff41f38c2e..d9d65898984e 100644
--- a/gcc/testsuite/gfortran.dg/erf_3.F90
+++ b/gcc/testsuite/gfortran.dg/erf_3.F90
@@ -1,20 +1,29 @@
-! { dg-do run }
+! { dg-do run { xfail spu-*-* ia64-*-linux* } }
 ! { dg-options "-fno-range-check -ffree-line-length-none -O0" }
 ! { dg-add-options ieee }
 !
 ! Check that simplification functions and runtime library agree on ERF,
 ! ERFC and ERFC_SCALED, for quadruple-precision.
+!
+! XFAILed for SPU targets because our library implementation of
+! the double-precision erf/erfc functions is not accurate enough.
+!
+! XFAILed for IA64 Linux because of a glibc bug:
+! http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59227
 
 program test
+  use, intrinsic :: iso_fortran_env
   implicit none
 
-  real(kind=16) :: x16
+  ! QP will be the largest supported real kind, possibly real(kind=16)
+  integer, parameter :: qp = real_kinds(ubound(real_kinds,dim=1))
+  real(kind=qp) :: x
 
 #define CHECK(a) \
-  x16 = a ; \
-  call check(erf(real(a,kind=16)), erf(x16)) ; \
-  call check(erfc(real(a,kind=16)), erfc(x16)) ; \
-  call check(erfc_scaled(real(a,kind=16)), erfc_scaled(x16))
+  x = a ; \
+  call check(erf(real(a,kind=qp)), erf(x)) ; \
+  call check(erfc(real(a,kind=qp)), erfc(x)) ; \
+  call check(erfc_scaled(real(a,kind=qp)), erfc_scaled(x))
 
   CHECK(0.0)
   CHECK(0.9)
@@ -36,7 +45,7 @@ program test
 contains
 
   subroutine check (a, b)
-    real(kind=16), intent(in) :: a, b
+    real(kind=qp), intent(in) :: a, b
     print *, abs(a-b) / spacing(a)
     if (abs(a - b) > 10 * spacing(a)) call abort
   end subroutine