libgfortran/m4/findloc1.m4

   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