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 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); 8export_proto(findloc1_'atype_code`); 9 10extern void 11findloc1_'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 14dnl 15define(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); 19export_proto(mfindloc1_'atype_code`); 20 21extern void 22mfindloc1_'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 26define(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); 30export_proto(sfindloc1_'atype_code`); 31 32extern void 33sfindloc1_'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 37define(comparison,`*src == value')dnl 38define(len_arg,`')dnl 39define(base_mult,1)dnl 40include(ifindloc1.m4)dnl 41