5905   gfc_ref *ref, *prev_ref;  in retrieve_last_ref()  local
5909   prev_ref = *prev_ref_in;  in retrieve_last_ref()
5914       prev_ref = ref;  in retrieve_last_ref()
5922   *prev_ref_in = prev_ref;  in retrieve_last_ref()
5953   gfc_ref *ref, *prev_ref = NULL, *coref;  in gfc_array_allocate()  local
5960   if (!retrieve_last_ref (&ref, &prev_ref))  in gfc_array_allocate()
5965   if (!prev_ref)  in gfc_array_allocate()
5973       allocatable = prev_ref->u.c.component->attr.allocatable;  in gfc_array_allocate()
5978       non_ulimate_coarray_ptr_comp = (prev_ref->u.c.component->attr.pointer  in gfc_array_allocate()
5979 	      && !prev_ref->u.c.component->attr.codimension);  in gfc_array_allocate()
5980       dimension = prev_ref->u.c.component->attr.dimension;  in gfc_array_allocate()
6004       if (!retrieve_last_ref (&ref, &prev_ref))  in gfc_array_allocate()