OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

From-SVN: r205193
This commit is contained in:
Francois-Xavier Coudert 2013-11-21 08:45:00 +00:00 committed by François-Xavier Coudert
parent 408e3c1e55
commit 933cfd4a37
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
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

6
libgfortran/intrinsics/erfc_scaled.c
View File

@ -52,14 +52,14 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#endif
#ifdef GFC_REAL_16_IS_FLOAT128
/* For quadruple-precision (__float128), netlib's implementation is
not accurate enough. We provide another one. */
extern GFC_REAL_16 erfc_scaled_r16 (GFC_REAL_16);
export_proto(erfc_scaled_r16);
GFC_REAL_16
erfc_scaled_r16 (GFC_REAL_16 x)
{
@ -101,3 +101,5 @@ erfc_scaled_r16 (GFC_REAL_16 x)
}
}
#endif