75   gfc_ref *new_ref;  in insert_component_ref()  local
80   gfc_find_component (ts->u.derived, name, true, true, &new_ref);  in insert_component_ref()
83   if (ecnt > 0 && !new_ref)  in insert_component_ref()
85   gcc_assert (new_ref->u.c.component);  in insert_component_ref()
87   while (new_ref->next)  in insert_component_ref()
88     new_ref = new_ref->next;  in insert_component_ref()
89   new_ref->next = *ref;  in insert_component_ref()
91   if (new_ref->next)  in insert_component_ref()
100       if (new_ref->next->type == REF_COMPONENT)  in insert_component_ref()
101 	next = new_ref->next;  in insert_component_ref()
102       else if (new_ref->next->type == REF_ARRAY  in insert_component_ref()
103 	       && new_ref->next->next  in insert_component_ref()
104 	       && new_ref->next->next->type == REF_COMPONENT)  in insert_component_ref()
105 	next = new_ref->next->next;  in insert_component_ref()
109 	  gcc_assert (new_ref->u.c.component->ts.type == BT_CLASS  in insert_component_ref()
110 		      || new_ref->u.c.component->ts.type == BT_DERIVED);  in insert_component_ref()
111 	  next->u.c.sym = new_ref->u.c.component->ts.u.derived;  in insert_component_ref()
115   *ref = new_ref;  in insert_component_ref()