diff options
Diffstat (limited to 'libgfortran/m4/eoshift3.m4')
| -rw-r--r-- | libgfortran/m4/eoshift3.m4 | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/libgfortran/m4/eoshift3.m4 b/libgfortran/m4/eoshift3.m4 index a5407520b0b..4e706dc8aa3 100644 --- a/libgfortran/m4/eoshift3.m4 +++ b/libgfortran/m4/eoshift3.m4 @@ -29,9 +29,15 @@ include(iparm.m4)dnl static const char zeros[16] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; +extern void __eoshift3_`'atype_kind (gfc_array_char *, gfc_array_char *, + atype *, const gfc_array_char *, + atype_name *); +export_proto_np(__eoshift3_`'atype_kind); + void -`__eoshift3_'atype_kind (gfc_array_char * ret, gfc_array_char * array, - atype * h, const gfc_array_char * bound, atype_name * pwhich) +__eoshift3_`'atype_kind (gfc_array_char *ret, gfc_array_char *array, + atype *h, const gfc_array_char *bound, + atype_name *pwhich) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; @@ -191,4 +197,3 @@ void } } } - |
