Lines Matching refs:lastcomp
2679 gfc_ref *lastcomp; variable
2683 lastcomp = ref;
2687 if (lastcomp->u.c.component->ts.type == BT_CLASS)
2688 sym_attr = CLASS_DATA (lastcomp->u.c.component)->attr;
2690 sym_attr = lastcomp->u.c.component->attr;
2695 && lastcomp->u.c.component->ts.type != BT_CLASS
2696 && lastcomp->u.c.component->ts.type != BT_DERIVED)
2709 ref && ref != lastcomp->next;
2726 if (lastcomp->u.c.component->ts.type == BT_DERIVED
2727 || lastcomp->u.c.component->ts.type == BT_CLASS)
2733 if (lastcomp->u.c.component->ts.type == BT_CLASS)
2761 else if (lastcomp->next
2762 && lastcomp->next->type == REF_ARRAY
2763 && lastcomp->next->u.ar.type == AR_FULL)
2810 = (lastcomp->next
2811 && lastcomp->next->type == REF_ARRAY
2812 && lastcomp->next->u.ar.type == AR_ELEMENT);