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

re PR fortran/79305 (real128 - undefined reference to cexpl)

Browse Source 
2017-01-31  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/79305
	* c99_protos.h: Spell HAVE_EXPL correctly.
	* intrinsics/c99_functions.c: Ditto.

From-SVN: r245068
This commit is contained in:
Steven G. Kargl 2017-01-31 18:50:31 +00:00
parent de3fbef690
commit 0751254a75
3 changed files with 8 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 @@
2017-01-31 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/79305
* c99_protos.h: Spell HAVE_EXPL correctly.
* intrinsics/c99_functions.c: Ditto.
2017-01-19 Uros Bizjak <ubizjak@gmail.com>
PR target/78478

2
libgfortran/c99_protos.h
View File

@ -332,7 +332,7 @@ extern float complex cexpf (float complex);
extern double complex cexp (double complex);
#endif
#if !defined(HAVE_CEXPL) && defined(HAVE_COSL) && defined(HAVE_SINL) && defined(EXPL)
#if !defined(HAVE_CEXPL) && defined(HAVE_COSL) && defined(HAVE_SINL) && defined(HAVE_EXPL)
#define HAVE_CEXPL 1
extern long double complex cexpl (long double complex);
#endif

2
libgfortran/intrinsics/c99_functions.c
View File

@ -913,7 +913,7 @@ cexp (double complex z)
}
#endif
#if !defined(HAVE_CEXPL) && defined(HAVE_COSL) && defined(HAVE_SINL) && defined(EXPL)
#if !defined(HAVE_CEXPL) && defined(HAVE_COSL) && defined(HAVE_SINL) && defined(HAVE_EXPL)
#define HAVE_CEXPL 1
long double complex cexpl (long double complex z);