Lines Matching defs:len_array
33 gfc_charlen_type len_array, gfc_charlen_type len_value);
40 gfc_charlen_type len_array, gfc_charlen_type len_value)
149 src = base + (len - 1) * delta * len_array;
150 for (n = len; n > 0; n--, src -= delta * len_array)
152 if (compare_string_char4 (len_array, src, len_value, value) == 0)
162 for (n = 1; n <= len; n++, src += delta * len_array)
164 if (compare_string_char4 (len_array, src, len_value, value) == 0)
174 base += sstride[0] * len_array;
180 base -= sstride[n] * extent[n] * len_array;
191 base += sstride[n] * len_array;
200 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value);
207 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value)
338 src = base + (len - 1) * delta * len_array;
340 for (n = len; n > 0; n--, src -= delta * len_array, msrc -= mdelta)
342 if (*msrc && compare_string_char4 (len_array, src, len_value, value) == 0)
353 for (n = 1; n <= len; n++, src += delta * len_array, msrc += mdelta)
355 if (*msrc && compare_string_char4 (len_array, src, len_value, value) == 0)
365 base += sstride[0] * len_array;
372 base -= sstride[n] * extent[n] * len_array;
384 base += sstride[n] * len_array;
393 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value);
400 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value)
414 findloc1_s4 (retarray, array, value, pdim, back, len_array, len_value);