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

re PR libfortran/35524 (Unconditional use of expl() in libgfortran) 

PR libfortran/35524
	* intrinsics/erfc_scaled_inc.c: Only define the long double
	variant of erfc_scaled if expl is available.

From-SVN: r133138
This commit is contained in:
Francois-Xavier Coudert 2008-03-12 10:24:29 +00:00 committed by François-Xavier Coudert
parent 7c8f7639c5
commit cb31c4bcc5
2 changed files with 22 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 @@
2008-03-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR libfortran/35524
* intrinsics/erfc_scaled_inc.c: Only define the long double
variant of erfc_scaled if expl is available.
2008-03-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR libfortran/32812

18
libgfortran/intrinsics/erfc_scaled_inc.c
View File

@ -35,16 +35,28 @@ Boston, MA 02110-1301, USA. */
#define KIND_SUFFIX(x,y) CONCAT(x,y)
#if (KIND == 4)
# define EXP(x) expf(x)
# define TRUNC(x) truncf(x)
#elif (KIND == 8)
# define EXP(x) exp(x)
# define TRUNC(x) trunc(x)
#else
# define EXP(x) expl(x)
# define TRUNC(x) truncl(x)
# ifdef HAVE_EXPL
# define EXP(x) expl(x)
# endif
# ifdef HAVE_TRUNCL
# define TRUNC(x) truncl(x)
# endif
#endif
#if defined(EXP) && defined(TRUNC)
extern TYPE KIND_SUFFIX(erfc_scaled_r,KIND) (TYPE);
export_proto(KIND_SUFFIX(erfc_scaled_r,KIND));
@ -167,6 +179,8 @@ finish:
return res;
}
#endif
#undef EXP
#undef TRUNC