libgfortran/m4/findloc0.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 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