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