| 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 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 |
projects / thirdparty / gcc.git / blame