Fix SLP of masked loads
[official-gcc.git] / libgfortran / m4 / findloc1.m4
blob1623355b228808587805625e296c3a063949c1e7
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`);
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`);
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`);
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