Lines Matching defs:r_start
1425 gfc_expr *r_start;
1444 r_start = r_ar->start[n];
1455 /* If r_start is NULL take it from array specifier. */
1456 if (r_start == NULL && IS_ARRAY_EXPLICIT (r_ar->as))
1457 r_start = r_ar->as->lower[n];
1479 else if (r_start && r_end)
1480 r_dir = gfc_dep_compare_expr (r_end, r_start);
1500 if (l_start && r_start)
1501 start_comparison = gfc_dep_compare_expr (l_start, r_start);
1527 r_lower = r_start;
1533 r_upper = r_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))
1867 gfc_expr *r_start;
1873 r_start = r_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))