diff options
Diffstat (limited to 'libgfortran/m4/fraction.m4')
| -rw-r--r-- | libgfortran/m4/fraction.m4 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libgfortran/m4/fraction.m4 b/libgfortran/m4/fraction.m4 index c453e78ac41..dd71865d4d3 100644 --- a/libgfortran/m4/fraction.m4 +++ b/libgfortran/m4/fraction.m4 @@ -23,8 +23,11 @@ Boston, MA 02111-1307, USA. */ include(`mtype.m4')dnl +extern real_type fraction_r`'kind (real_type s); +export_proto(fraction_r`'kind); + real_type -prefix(fraction_r`'kind) (real_type s) +fraction_r`'kind (real_type s) { int dummy_exp; return frexp`'q (s, &dummy_exp); |