findloc0.m4 revision 1.1
1 1.1 mrg dnl Support macros for findloc. 2 1.1 mrg dnl This file is part of the GNU Fortran Runtime Library (libgfortran) 3 1.1 mrg dnl Distributed under the GNU GPL with exception. See COPYING for details. 4 1.1 mrg include(iparm.m4)dnl 5 1.1 mrg define(header1,`extern void findloc0_'atype_code` (gfc_array_index_type * const restrict retarray, 6 1.1 mrg 'atype` * const restrict array, 'atype_name` value, 7 1.1 mrg GFC_LOGICAL_4); 8 1.1 mrg export_proto(findloc0_'atype_code`); 9 1.1 mrg 10 1.1 mrg void 11 1.1 mrg findloc0_'atype_code` (gfc_array_index_type * const restrict retarray, 12 1.1 mrg 'atype` * const restrict array, 'atype_name` value, 13 1.1 mrg GFC_LOGICAL_4 back)')dnl 14 1.1 mrg dnl 15 1.1 mrg define(header2,`extern void mfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray, 16 1.1 mrg 'atype` * const restrict array, 'atype_name` value, 17 1.1 mrg gfc_array_l1 *const restrict, GFC_LOGICAL_4); 18 1.1 mrg export_proto(mfindloc0_'atype_code`); 19 1.1 mrg 20 1.1 mrg void 21 1.1 mrg mfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray, 22 1.1 mrg 'atype` * const restrict array, 'atype_name` value, 23 1.1 mrg gfc_array_l1 *const restrict mask, GFC_LOGICAL_4 back)') 24 1.1 mrg dnl 25 1.1 mrg define(header3,`extern void sfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray, 26 1.1 mrg 'atype` * const restrict array, 'atype_name` value, 27 1.1 mrg GFC_LOGICAL_4 *, GFC_LOGICAL_4); 28 1.1 mrg export_proto(sfindloc0_'atype_code`); 29 1.1 mrg 30 1.1 mrg void 31 1.1 mrg sfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray, 32 1.1 mrg 'atype` * const restrict array, 'atype_name` value, 33 1.1 mrg GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)')dnl 34 1.1 mrg dnl 35 1.1 mrg define(comparison,`*base == value')dnl 36 1.1 mrg define(len_arg,`')dnl 37 1.1 mrg define(base_mult,1)dnl 38 1.1 mrg include(ifindloc0.m4)dnl 39
Indexes created Tue Mar 24 00:24:13 UTC 2026