Lines Matching defs:l_start
1418 gfc_expr *l_start;
1440 l_start = l_ar->start[n];
1448 /* If l_start is NULL take it from array specifier. */
1449 if (l_start == NULL && IS_ARRAY_EXPLICIT (l_ar->as))
1450 l_start = l_ar->as->lower[n];
1468 else if (l_start && l_end)
1469 l_dir = gfc_dep_compare_expr (l_end, l_start);
1500 if (l_start && r_start)
1501 start_comparison = gfc_dep_compare_expr (l_start, r_start);
1510 l_lower = l_start;
1516 l_upper = l_start;
1548 if (l_start && r_start && gfc_dep_compare_expr (l_start, r_start) == 0)
1567 (l_start - r_start) / gcd(l_stride, r_stride) is
1577 && gfc_dep_difference (l_start, r_start, &tmp))
1613 if (l_start && IS_ARRAY_EXPLICIT (l_ar->as))
1621 && gfc_dep_compare_expr (l_start, l_ar->as->lower[n]) == 0)
1628 if (l_start && IS_ARRAY_EXPLICIT (l_ar->as))
1636 && gfc_dep_compare_expr (l_start, l_ar->as->upper[n]) == 0)
1866 gfc_expr *l_start;
1872 l_start = l_ar.start[n] ;
1874 i = gfc_dep_compare_expr (r_start, l_start);
1887 if (contains_forall_index_p (r_start) || contains_forall_index_p (l_start))