diff options
Diffstat (limited to 'libgfortran/m4/reshape.m4')
| -rw-r--r-- | libgfortran/m4/reshape.m4 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/m4/reshape.m4 b/libgfortran/m4/reshape.m4 index 7355a7a172b..119154aa885 100644 --- a/libgfortran/m4/reshape.m4 +++ b/libgfortran/m4/reshape.m4 @@ -31,12 +31,12 @@ typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type; return array. */ dnl Only the kind (ie size) is used to name the function. -extern void `__reshape_'rtype_kind (rtype *, rtype *, shape_type *, +extern void reshape_`'rtype_kind (rtype *, rtype *, shape_type *, rtype *, shape_type *); -extern_proto_np(`__reshape_'rtype_kind); +export_proto(reshape_`'rtype_kind); void -`__reshape_'rtype_kind (rtype * ret, rtype * source, shape_type * shape, +reshape_`'rtype_kind (rtype * ret, rtype * source, shape_type * shape, rtype * pad, shape_type * order) { /* r.* indicates the return array. */ |