diff options
Diffstat (limited to 'libgfortran/m4/exponent.m4')
| -rw-r--r-- | libgfortran/m4/exponent.m4 | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/libgfortran/m4/exponent.m4 b/libgfortran/m4/exponent.m4 index bb9cda8a150..7302eb8b1a9 100644 --- a/libgfortran/m4/exponent.m4 +++ b/libgfortran/m4/exponent.m4 @@ -27,7 +27,9 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see include(`mtype.m4')dnl -`#if defined (HAVE_'real_type`) && defined (HAVE_FREXP'Q`) +mathfunc_macro + +`#if defined (HAVE_'real_type`) && 'hasmathfunc(frexp)` extern GFC_INTEGER_4 exponent_r'kind` ('real_type` s); export_proto(exponent_r'kind`); @@ -36,7 +38,7 @@ GFC_INTEGER_4 exponent_r'kind` ('real_type` s) { int ret; - frexp'q` (s, &ret); + MATHFUNC(frexp) (s, &ret); return ret; } |