Searched refs:class_ok (Results 1 - 11 of 11) sorted by relevance

/haiku-buildtools/gcc/gcc/fortran/
H A Dprimary.c1875 || (sym->ts.type == BT_CLASS && sym->attr.class_ok
2050 else if (component->ts.type == BT_CLASS && component->attr.class_ok
2157 if (sym->ts.type == BT_CLASS && sym->attr.class_ok)
2948 if (sym->ts.type == BT_CLASS && sym->attr.class_ok
3015 if (sym->ts.type == BT_CLASS && sym->attr.class_ok
H A Dresolve.c237 sym->attr.class_ok = ifc->attr.class_ok;
332 as = sym->ts.type == BT_CLASS && sym->attr.class_ok
359 || (sym->ts.type == BT_CLASS && sym->attr.class_ok
1911 || (sym->ts.type == BT_CLASS && sym->attr.class_ok
4920 else if ((sym->ts.type == BT_CLASS && sym->attr.class_ok
4964 if (((sym->ts.type == BT_CLASS && sym->attr.class_ok
5525 if (base->ts.type == BT_CLASS && !gfc_expr_attr (base).class_ok)
8064 if (sym->ts.type == BT_CLASS && gfc_expr_attr (target).class_ok)
8065 sym->attr.class_ok
[all...]
H A Dinterface.c2044 if (formal->ts.type == BT_CLASS && formal->attr.class_ok
2058 if (!gfc_expr_attr (actual).class_ok)
2928 if (((f->sym->ts.type == BT_CLASS && f->sym->attr.class_ok
3256 if ((f->sym->ts.type == BT_CLASS && f->sym->attr.class_ok
3278 if ((f->sym->ts.type == BT_CLASS && f->sym->attr.class_ok
3655 || !gfc_expr_attr (base->expr).class_ok)
H A Dparse.c2733 || (c->ts.type == BT_CLASS && c->attr.class_ok
2744 || (c->ts.type == BT_CLASS && c->attr.class_ok
2760 || (c->ts.type == BT_CLASS && c->attr.class_ok
2778 || (c->ts.type == BT_CLASS && c->attr.class_ok
2795 || (c->ts.type == BT_CLASS && c->attr.class_ok
H A Dmatch.c3689 if (sym && sym->ts.type == BT_CLASS && sym->attr.class_ok)
5403 && !select_type_stack->selector->attr.class_ok)
5471 && select_type_stack->selector->attr.class_ok)
5546 sym->attr.class_ok = 1;
H A Dclass.c619 if (attr->class_ok)
623 attr->class_ok = attr->dummy || attr->pointer || attr->allocatable
626 if (!attr->class_ok)
H A Dcheck.c208 if (e->ts.type == BT_CLASS && gfc_expr_attr (e).class_ok
250 if (e->ts.type == BT_CLASS && gfc_expr_attr (e).class_ok
H A Dgfortran.h771 unsigned class_ok:1; /* is a CLASS object with correct attributes. */ member in struct:__anon98
H A Dmodule.c2638 c->attr.class_ok = 1;
4086 sym->attr.class_ok = 1;
H A Dexpr.c4475 if (sym->ts.type == BT_CLASS && sym->attr.class_ok)
4485 if (comp->ts.type == BT_CLASS && comp->attr.class_ok
H A Dsimplify.c2326 if (((a->ts.type == BT_CLASS && gfc_expr_attr (a).class_ok)
2327 || (b->ts.type == BT_CLASS && gfc_expr_attr (b).class_ok))

Completed in 314 milliseconds