Lines Matching refs:array_ref
5350 gfc_ref *ref, **prev, *array_ref; in gfc_resolve_ref() local
5396 array_ref = NULL; in gfc_resolve_ref()
5403 array_ref = ref; in gfc_resolve_ref()
5419 array_ref = NULL; in gfc_resolve_ref()
5464 if (ref->u.i == INQUIRY_LEN && array_ref in gfc_resolve_ref()
5468 array_ref->u.ar.type = AR_ELEMENT; in gfc_resolve_ref()
5475 for (dim = 0; dim < array_ref->u.ar.dimen; dim++) in gfc_resolve_ref()
5477 array_ref->u.ar.dimen_type[dim] = DIMEN_ELEMENT; in gfc_resolve_ref()
5478 if (array_ref->u.ar.start[dim]) in gfc_resolve_ref()
5479 gfc_free_expr (array_ref->u.ar.start[dim]); in gfc_resolve_ref()
5480 array_ref->u.ar.start[dim] in gfc_resolve_ref()
5482 if (array_ref->u.ar.end[dim]) in gfc_resolve_ref()
5483 gfc_free_expr (array_ref->u.ar.end[dim]); in gfc_resolve_ref()
5484 if (array_ref->u.ar.stride[dim]) in gfc_resolve_ref()
5485 gfc_free_expr (array_ref->u.ar.stride[dim]); in gfc_resolve_ref()