| b17c03a4 |
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 findloc0_'atype_code` (gfc_array_index_type * const restrict retarray, |
| 6 | 'atype` * const restrict array, 'atype_name` value, |
| 7 | GFC_LOGICAL_4); |
| 8 | export_proto(findloc0_'atype_code`); |
| 9 | |
| 10 | void |
| 11 | findloc0_'atype_code` (gfc_array_index_type * const restrict retarray, |
| 12 | 'atype` * const restrict array, 'atype_name` value, |
| 13 | GFC_LOGICAL_4 back)')dnl |
| 14 | dnl |
| 15 | define(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); |
| 18 | export_proto(mfindloc0_'atype_code`); |
| 19 | |
| 20 | void |
| 21 | mfindloc0_'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)') |
| 24 | dnl |
| 25 | define(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); |
| 28 | export_proto(sfindloc0_'atype_code`); |
| 29 | |
| 30 | void |
| 31 | sfindloc0_'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 |
| 34 | dnl |
| 35 | define(comparison,`*base == value')dnl |
| 36 | define(len_arg,`')dnl |
| 37 | define(base_mult,1)dnl |
| 38 | include(ifindloc0.m4)dnl |
projects / thirdparty / gcc.git / blame