Lines Matching refs:lref
1660 gfc_check_element_vs_section( gfc_ref *lref, gfc_ref *rref, int n) in gfc_check_element_vs_section() argument
1669 elem = lref->u.ar.start[n]; in gfc_check_element_vs_section()
1861 gfc_check_element_vs_element (gfc_ref *lref, gfc_ref *rref, int n) in gfc_check_element_vs_element() argument
1869 l_ar = lref->u.ar; in gfc_check_element_vs_element()
2101 gfc_dep_resolver (gfc_ref *lref, gfc_ref *rref, gfc_reverse *reverse, in gfc_dep_resolver() argument
2115 while (lref && rref) in gfc_dep_resolver()
2121 if (lref && lref->type == REF_COMPONENT && lref->u.c.component in gfc_dep_resolver()
2122 && strcmp (lref->u.c.component->name, "_data") == 0) in gfc_dep_resolver()
2123 lref = lref->next; in gfc_dep_resolver()
2132 gcc_assert (lref->type == rref->type); in gfc_dep_resolver()
2133 switch (lref->type) in gfc_dep_resolver()
2138 if (lref->u.c.component != rref->u.c.component) in gfc_dep_resolver()
2152 if (lref->u.ar.codimen || rref->u.ar.codimen) in gfc_dep_resolver()
2155 if (ref_same_as_full_array (lref, rref)) in gfc_dep_resolver()
2158 if (ref_same_as_full_array (rref, lref)) in gfc_dep_resolver()
2161 if (lref->u.ar.dimen != rref->u.ar.dimen) in gfc_dep_resolver()
2163 if (lref->u.ar.type == AR_FULL) in gfc_dep_resolver()
2167 fin_dep = gfc_full_array_ref_p (lref, NULL) ? GFC_DEP_EQUAL in gfc_dep_resolver()
2176 for (n = 0; n < lref->u.ar.dimen; n++) in gfc_dep_resolver()
2182 if (lref->u.ar.dimen_type[n] == DIMEN_VECTOR in gfc_dep_resolver()
2185 if (lref->u.ar.dimen_type[n] == DIMEN_VECTOR in gfc_dep_resolver()
2187 && gfc_dep_compare_expr (lref->u.ar.start[n], in gfc_dep_resolver()
2196 if (lref->u.ar.dimen_type[n] == DIMEN_RANGE in gfc_dep_resolver()
2198 this_dep = check_section_vs_section (&lref->u.ar, in gfc_dep_resolver()
2200 else if (lref->u.ar.dimen_type[n] == DIMEN_ELEMENT in gfc_dep_resolver()
2202 this_dep = gfc_check_element_vs_section (lref, rref, n); in gfc_dep_resolver()
2204 && lref->u.ar.dimen_type[n] == DIMEN_RANGE) in gfc_dep_resolver()
2205 this_dep = gfc_check_element_vs_section (rref, lref, n); in gfc_dep_resolver()
2209 && lref->u.ar.dimen_type[n] == DIMEN_ELEMENT); in gfc_dep_resolver()
2210 this_dep = gfc_check_element_vs_element (rref, lref, n); in gfc_dep_resolver()
2228 if (lref->u.ar.dimen_type[n] != DIMEN_ELEMENT) in gfc_dep_resolver()
2232 && lref->u.ar.dimen_type[n] == DIMEN_RANGE) in gfc_dep_resolver()
2282 if (lref->u.ar.type == AR_ELEMENT in gfc_dep_resolver()
2297 if (lref->u.i != rref->u.i) in gfc_dep_resolver()
2305 lref = lref->next; in gfc_dep_resolver()
2310 if (lref || rref) in gfc_dep_resolver()