I would like to apply the following patch to trunk. It technically
isn't a regression or documentation fix. Is this ok with the release
managers?
2017-01-31 Steven G. Kargl <ka...@gcc.gnu.org>
PR fortran/79305
* libgfortran/c99_protos.h: Spell HAVE_EXPL correctly.
* libgfortran/intrinsics/c99_functions.c: Ditto.
Index: libgfortran/c99_protos.h
===================================================================
--- libgfortran/c99_protos.h (revision 244065)
+++ libgfortran/c99_protos.h (working copy)
@@ -332,7 +332,7 @@ extern float complex cexpf (float comple
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
Index: libgfortran/intrinsics/c99_functions.c
===================================================================
--- libgfortran/intrinsics/c99_functions.c (revision 244065)
+++ libgfortran/intrinsics/c99_functions.c (working copy)
@@ -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);
--
Steve
20161221 https://www.youtube.com/watch?v=IbCHE-hONow
