Mercurial > hg > CbC > CbC_gcc

annotate libgfortran/m4/findloc1.m4 @ 158:494b0b89df80 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
145
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
1 dnl Support macros for findloc.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
2 dnl This file is part of the GNU Fortran Runtime Library (libgfortran)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
3 dnl Distributed under the GNU GPL with exception. See COPYING for details.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
4 include(iparm.m4)dnl
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
5 define(header1,`extern void findloc1_'atype_code` (gfc_array_index_type * const restrict retarray,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
6 'atype` * const restrict array, 'atype_name` value,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
7 const 'index_type` * restrict pdim, GFC_LOGICAL_4 back);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
8 export_proto(findloc1_'atype_code`);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
9
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
10 extern void
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
11 findloc1_'atype_code` (gfc_array_index_type * const restrict retarray,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
12 'atype` * const restrict array, 'atype_name` value,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
13 const 'index_type` * restrict pdim, GFC_LOGICAL_4 back)')dnl
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
14 dnl
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
15 define(header2,`extern void mfindloc1_'atype_code` (gfc_array_index_type * const restrict retarray,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
16 'atype` * const restrict array, 'atype_name` value,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
17 const 'index_type` * restrict pdim, gfc_array_l1 *const restrict mask,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
18 GFC_LOGICAL_4 back);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
19 export_proto(mfindloc1_'atype_code`);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
20
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
21 extern void
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
22 mfindloc1_'atype_code` (gfc_array_index_type * const restrict retarray,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
23 'atype` * const restrict array, 'atype_name` value,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
24 const 'index_type` * restrict pdim, gfc_array_l1 *const restrict mask,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
25 GFC_LOGICAL_4 back)')dnl
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
26 define(header3,`extern void sfindloc1_'atype_code` (gfc_array_index_type * const restrict retarray,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
27 'atype` * const restrict array, 'atype_name` value,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
28 const 'index_type` * restrict pdim, GFC_LOGICAL_4 *const restrict mask,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
29 GFC_LOGICAL_4 back);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
30 export_proto(sfindloc1_'atype_code`);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
31
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
32 extern void
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
33 sfindloc1_'atype_code` (gfc_array_index_type * const restrict retarray,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
34 'atype` * const restrict array, 'atype_name` value,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
35 const 'index_type` * restrict pdim, GFC_LOGICAL_4 *const restrict mask,
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
36 GFC_LOGICAL_4 back)')dnl
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
37 define(comparison,`*src == value')dnl
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
38 define(len_arg,`')dnl
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
39 define(base_mult,1)dnl
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
40 include(ifindloc1.m4)dnl