diff options
Diffstat (limited to 'libgfortran/m4/ifunction.m4')
| -rw-r--r-- | libgfortran/m4/ifunction.m4 | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4 index 93b3197..0a377a5 100644 --- a/libgfortran/m4/ifunction.m4 +++ b/libgfortran/m4/ifunction.m4 @@ -18,8 +18,12 @@ dnl Execution should be allowed to continue to the end of the block. dnl You should not return or break from the inner loop of the implementation. dnl Care should also be taken to avoid using the names defined in iparm.m4 define(START_ARRAY_FUNCTION, -`void -`__'name`'rtype_qual`_'atype_code (rtype * retarray, atype *array, index_type *pdim) +` +extern void `__'name`'rtype_qual`_'atype_code (rtype *, atype *, index_type *); +export_proto_np(`__'name`'rtype_qual`_'atype_code); + +void +`__'name`'rtype_qual`_'atype_code (rtype *retarray, atype *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -138,7 +142,12 @@ define(FINISH_ARRAY_FUNCTION, } }')dnl define(START_MASKED_ARRAY_FUNCTION, -`void +` +extern void `__m'name`'rtype_qual`_'atype_code (rtype *, atype *, index_type *, + gfc_array_l4 *); +export_proto_np(`__m'name`'rtype_qual`_'atype_code); + +void `__m'name`'rtype_qual`_'atype_code (rtype * retarray, atype * array, index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; |