libgfortran/m4/findloc0s.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 back, gfc_charlen_type len_array, gfc_charlen_type len_value);
   8
   9 export_proto(findloc0_'atype_code`);
  10
  11 void
  12 findloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
  13             'atype` * const restrict array, 'atype_name` *value,
  14             GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value)')dnl
  15 dnl
  16 define(header2,`extern void mfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
  17                         'atype` * const restrict array, 'atype_name` *value,
  18                          gfc_array_l1 *const restrict, GFC_LOGICAL_4 back, gfc_charlen_type len_array,
  19                          gfc_charlen_type len_value);
  20 export_proto(mfindloc0_'atype_code`);
  21
  22 void
  23 mfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
  24             'atype` * const restrict array, 'atype_name` *value,
  25             gfc_array_l1 *const restrict mask, GFC_LOGICAL_4 back,
  26             gfc_charlen_type len_array, gfc_charlen_type len_value)')
  27 dnl
  28 define(header3,`extern void sfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
  29                         'atype` * const restrict array, 'atype_name` *value,
  30                          GFC_LOGICAL_4 *, GFC_LOGICAL_4 back, gfc_charlen_type len_array,
  31                          gfc_charlen_type len_value);
  32 export_proto(sfindloc0_'atype_code`);
  33
  34 void
  35 sfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
  36             'atype` * const restrict array, 'atype_name` *value,
  37             GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back, gfc_charlen_type len_array,
  38             gfc_charlen_type len_value)')dnl
  39 dnl
  40 define(comparison,ifelse(atype_kind,4,dnl
  41 `compare_string_char4 (len_array, base, len_value, value) == 0',dnl
  42 `compare_string (len_array, (char *) base, len_value, (char *) value) == 0'))dnl
  43 define(len_arg,`, len_array, len_value')dnl
  44 define(base_mult,`len_array')dnl
  45 include(ifindloc0.m4)dnl
  46
  47
  48