Lines Matching defs:len_array
33 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value);
40 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value)
92 base = array->base_addr + (sz - 1) * len_array;
98 if (unlikely(compare_string_char4 (len_array, base, len_value, value) == 0))
105 base -= sstride[0] * len_array;
116 base += sstride[n] * extent[n] * len_array;
123 base -= sstride[n] * len_array;
135 if (unlikely(compare_string_char4 (len_array, base, len_value, value) == 0))
142 base += sstride[0] * len_array;
153 base -= sstride[n] * extent[n] * len_array;
160 base += sstride[n] * len_array;
170 gfc_array_l1 *const restrict, GFC_LOGICAL_4 back, gfc_charlen_type len_array,
178 gfc_charlen_type len_array, gfc_charlen_type len_value)
251 base = array->base_addr + (sz - 1) * len_array;
257 if (unlikely(*mbase && compare_string_char4 (len_array, base, len_value, value) == 0))
264 base -= sstride[0] * len_array;
276 base += sstride[n] * extent[n] * len_array;
284 base -= sstride[n] * len_array;
297 if (unlikely(*mbase && compare_string_char4 (len_array, base, len_value, value) == 0))
304 base += sstride[0] * len_array;
316 base -= sstride[n] * extent[n] * len_array;
324 base += sstride[n]* len_array;
335 GFC_LOGICAL_4 *, GFC_LOGICAL_4 back, gfc_charlen_type len_array,
342 GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back, gfc_charlen_type len_array,
352 findloc0_s4 (retarray, array, value, back, len_array, len_value);