Cross Reference: /src/external/gpl3/gcc.old/dist/gcc/fortran/dependency.cc

Lines Matching refs:lref
1661 gfc_check_element_vs_section( gfc_ref *lref, gfc_ref *rref, int n)
1670   elem = lref->u.ar.start[n];
1862 gfc_check_element_vs_element (gfc_ref *lref, gfc_ref *rref, int n)
1870   l_ar = lref->u.ar;
2102 gfc_dep_resolver (gfc_ref *lref, gfc_ref *rref, gfc_reverse *reverse,
2116   while (lref && rref)
2122       if (lref && lref->type == REF_COMPONENT && lref->u.c.component
2123 	  && strcmp (lref->u.c.component->name, "_data") == 0)
2124 	lref = lref->next;
2133       gcc_assert (lref->type == rref->type);
2134       switch (lref->type)
2139 	  if (lref->u.c.component != rref->u.c.component)
2156 	      && ((lref->u.ar.codimen
2157 		   && lref->u.ar.dimen_type[lref->u.ar.dimen]
2160 		      && lref->u.ar.dimen_type[lref->u.ar.dimen]
2163 	  if (lref->u.ar.dimen == 0 || rref->u.ar.dimen == 0)
2166 	      if (lref->u.ar.dimen || rref->u.ar.dimen)
2172 	  if (ref_same_as_full_array (lref, rref))
2175 	  if (ref_same_as_full_array (rref, lref))
2178 	  if (lref->u.ar.dimen != rref->u.ar.dimen)
2180 	      if (lref->u.ar.type == AR_FULL)
2184 		fin_dep = gfc_full_array_ref_p (lref, NULL) ? GFC_DEP_EQUAL
2193 	  for (n = 0; n < lref->u.ar.dimen; n++)
2199 	      if (lref->u.ar.dimen_type[n] == DIMEN_VECTOR
2202 		  if (lref->u.ar.dimen_type[n] == DIMEN_VECTOR
2204 		      && gfc_dep_compare_expr (lref->u.ar.start[n],
2213 	      if (lref->u.ar.dimen_type[n] == DIMEN_RANGE
2215 		this_dep = check_section_vs_section (&lref->u.ar,
2217 	      else if (lref->u.ar.dimen_type[n] == DIMEN_ELEMENT
2219 		this_dep = gfc_check_element_vs_section (lref, rref, n);
2221 		       && lref->u.ar.dimen_type[n] == DIMEN_RANGE)
2222 		this_dep = gfc_check_element_vs_section (rref, lref, n);
2226 			      && lref->u.ar.dimen_type[n] == DIMEN_ELEMENT);
2227 		  this_dep = gfc_check_element_vs_element (rref, lref, n);
2245 	      if (lref->u.ar.dimen_type[n] != DIMEN_ELEMENT)
2249 		    && lref->u.ar.dimen_type[n] == DIMEN_RANGE)
2299 	  if (lref->u.ar.type == AR_ELEMENT
2314 	  if (lref->u.i != rref->u.i)
2322       lref = lref->next;
2327   if (lref || rref)
OpenGrok
