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