Commit 933cfd4a by Francois-Xavier Coudert Committed by François-Xavier Coudert

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

	PR libfortran/59227
	* intrinsics/erfc_scaled.c (erfc_scaled_r16): Don't define if
	__float128 is not available.

From-SVN: r205193
parent 408e3c1e
2013-11-20 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> 2013-11-20 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR libfortran/59227
* intrinsics/erfc_scaled.c (erfc_scaled_r16): Don't define if
__float128 is not available.
2013-11-20 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR libfortran/49024 PR libfortran/49024
* intrinsics/erfc_scaled.c (erfc_scaled_r16): New function. * intrinsics/erfc_scaled.c (erfc_scaled_r16): New function.
* intrinsics/erfc_scaled_inc.c: Do not provide quadruple * intrinsics/erfc_scaled_inc.c: Do not provide quadruple
......
...@@ -52,14 +52,14 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see ...@@ -52,14 +52,14 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#endif #endif
#ifdef GFC_REAL_16_IS_FLOAT128
/* For quadruple-precision (__float128), netlib's implementation is /* For quadruple-precision (__float128), netlib's implementation is
not accurate enough. We provide another one. */ not accurate enough. We provide another one. */
extern GFC_REAL_16 erfc_scaled_r16 (GFC_REAL_16); extern GFC_REAL_16 erfc_scaled_r16 (GFC_REAL_16);
export_proto(erfc_scaled_r16); export_proto(erfc_scaled_r16);
GFC_REAL_16 GFC_REAL_16
erfc_scaled_r16 (GFC_REAL_16 x) erfc_scaled_r16 (GFC_REAL_16 x)
{ {
...@@ -101,3 +101,5 @@ erfc_scaled_r16 (GFC_REAL_16 x) ...@@ -101,3 +101,5 @@ erfc_scaled_r16 (GFC_REAL_16 x)
} }
} }
#endif
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