Home | History | Annotate | Line # | Download | only in 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 
     49