gcc/fortran/symbol.c

2409   gfc_ref *sref, *tmp;
2421           sref = gfc_get_ref ();
2422           sref->type = REF_COMPONENT;
2423           sref->u.c.component = m;
2424           sref->u.c.sym = m->ts.u.derived;
2425           sref->next = tmp;
2427           *ref = sref;
2487   gfc_ref *sref = NULL, *tmp = NULL;
2516                   sref = gfc_get_ref ();
2517                   sref->type = REF_COMPONENT;
2518                   sref->u.c.component = p;
2519                   sref->u.c.sym = p->ts.u.derived;
2520                   sref->next = tmp;
2521                   *ref = sref;
2578       if (sref)
2580           *ref = sref;
2581           for (; sref->next; sref = sref->next)
2583           sref->next = tmp;