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

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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index ad4f65b7fb230764a1c57a6fec89fc4067ef88dd..a3a8c2249ee7d5b53905bc8f27aec3eb2c3961ab 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -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

diff --git a/libgfortran/c99_protos.h b/libgfortran/c99_protos.h
index 932b08d5c457c0ce1d38ca521c69451d9e8fddb1..7680c6f34b73b2f6d965b34326186d972c33c2e6 100644 (file)
--- a/libgfortran/c99_protos.h
+++ b/libgfortran/c99_protos.h
@@ -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

diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c
index b1491524e8401fdec16513021de4a14e87f4b3ce..dce0d7a042c4c9cb16cb498407eebbe12ccabe12 100644 (file)
--- a/libgfortran/intrinsics/c99_functions.c
+++ b/libgfortran/intrinsics/c99_functions.c
@@ -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);