diff options
Diffstat (limited to 'libgfortran/m4/iforeach.m4')
-rw-r--r-- | libgfortran/m4/iforeach.m4 | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/libgfortran/m4/iforeach.m4 b/libgfortran/m4/iforeach.m4 index 4106ddc7aaf..b67770b4843 100644 --- a/libgfortran/m4/iforeach.m4 +++ b/libgfortran/m4/iforeach.m4 @@ -3,7 +3,11 @@ dnl Contains the generic sections of the array functions. dnl This file is part of the GNU Fortran 95 Runtime Library (libgfortran) dnl Distributed under the GNU LGPL. See COPYING for details. define(START_FOREACH_FUNCTION, -`void +` +extern void `__'name`'rtype_qual`_'atype_code (rtype * retarray, atype *array); +export_proto_np(`__'name`'rtype_qual`_'atype_code); + +void `__'name`'rtype_qual`_'atype_code (rtype * retarray, atype *array) { index_type count[GFC_MAX_DIMENSIONS]; @@ -85,7 +89,11 @@ define(FINISH_FOREACH_FUNCTION, } }')dnl define(START_MASKED_FOREACH_FUNCTION, -`void +` +extern void `__m'name`'rtype_qual`_'atype_code (rtype *, atype *, gfc_array_l4 *); +export_proto_np(`__m'name`'rtype_qual`_'atype_code); + +void `__m'name`'rtype_qual`_'atype_code (rtype * retarray, atype *array, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; |