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);
      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
     39