Lines Matching refs:array_ref
5267 gfc_ref *ref, **prev, *array_ref; in gfc_resolve_ref() local
5313 array_ref = NULL; in gfc_resolve_ref()
5320 array_ref = ref; in gfc_resolve_ref()
5336 array_ref = NULL; in gfc_resolve_ref()
5381 if (ref->u.i == INQUIRY_LEN && array_ref && expr->ts.deferred) in gfc_resolve_ref()
5383 array_ref->u.ar.type = AR_ELEMENT; in gfc_resolve_ref()
5390 for (dim = 0; dim < array_ref->u.ar.dimen; dim++) in gfc_resolve_ref()
5392 array_ref->u.ar.dimen_type[dim] = DIMEN_ELEMENT; in gfc_resolve_ref()
5393 if (array_ref->u.ar.start[dim]) in gfc_resolve_ref()
5394 gfc_free_expr (array_ref->u.ar.start[dim]); in gfc_resolve_ref()
5395 array_ref->u.ar.start[dim] in gfc_resolve_ref()
5397 if (array_ref->u.ar.end[dim]) in gfc_resolve_ref()
5398 gfc_free_expr (array_ref->u.ar.end[dim]); in gfc_resolve_ref()
5399 if (array_ref->u.ar.stride[dim]) in gfc_resolve_ref()
5400 gfc_free_expr (array_ref->u.ar.stride[dim]); in gfc_resolve_ref()