Searched refs:CLASS_DATA (Results 1 - 20 of 20) sorted by relevance

/haiku-buildtools/gcc/gcc/fortran/
H A Dprimary.c1842 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
1843 && CLASS_DATA (sym)->attr.dimension))
1850 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
1851 && !CLASS_DATA (sym)->attr.codimension))
1876 && (CLASS_DATA (sym)->attr.dimension
1877 || CLASS_DATA (sym)->attr.codimension)))
1890 else if (sym->ts.type == BT_CLASS && CLASS_DATA (sym))
1891 as = CLASS_DATA (sym)->as;
2051 && CLASS_DATA (component)->as && !component->attr.proc_pointer)
2056 m = gfc_match_array_ref (&tail->u.ar, CLASS_DATA (componen
[all...]
H A Dinterface.c541 as1 = (s1->ts.type == BT_CLASS) ? CLASS_DATA (s1)->as : s1->as;
542 as2 = (s2->ts.type == BT_CLASS) ? CLASS_DATA (s2)->as : s2->as;
1050 as = (sym->ts.type == BT_CLASS) ? CLASS_DATA (sym)->as : sym->as;
1861 || (formal->ts.type == BT_CLASS && CLASS_DATA (formal)->attr.allocatable))
1882 || (formal->ts.type == BT_CLASS && CLASS_DATA (formal)
1883 && CLASS_DATA (formal)->attr.class_pointer))
2025 CLASS_DATA (actual)->ts.u.derived)))
2046 && ((CLASS_DATA (formal)->attr.class_pointer
2048 || CLASS_DATA (formal)->attr.allocatable))
2062 && !gfc_compare_derived_types (CLASS_DATA (actua
[all...]
H A Dtrans-expr.c308 && CLASS_DATA (ref->u.c.component)->attr.allocatable)
1274 && CLASS_DATA (code->expr1)->attr.dimension)
1389 else if (CLASS_DATA (expr2)->attr.dimension && expr2->expr_type != EXPR_FUNCTION)
1407 && !CLASS_DATA (expr2)->attr.dimension)
1410 || !CLASS_DATA (expr2)->attr.dimension)
1589 && !CLASS_DATA (sym)->attr.allocatable
1590 && !CLASS_DATA (sym)->attr.class_pointer))
1599 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->as))
1741 && !CLASS_DATA (ref->u.c.component)->attr.codimension
1742 && (CLASS_DATA (re
[all...]
H A Dmatch.c3690 b2 = !(CLASS_DATA (sym)->attr.allocatable
3691 || CLASS_DATA (sym)->attr.class_pointer);
4065 b2 = !(CLASS_DATA (sym)->attr.allocatable
4066 || CLASS_DATA (sym)->attr.class_pointer);
5327 if (selector->ts.type == BT_CLASS && CLASS_DATA (selector)->as
5348 selector->rank = CLASS_DATA (selector)->as->rank;
5369 assoc_sym->ts.u.derived = CLASS_DATA (selector)->ts.u.derived;
5422 && (CLASS_DATA (select_type_stack->selector)->attr.dimension
5423 || CLASS_DATA (select_type_stack->selector)->attr.codimension))
5427 = CLASS_DATA (select_type_stac
[all...]
H A Dexpr.c3853 pointer = comp->ts.type == BT_CLASS && CLASS_DATA (comp)
3854 ? CLASS_DATA (comp)->attr.class_pointer : comp->attr.pointer;
3859 pointer = sym->ts.type == BT_CLASS && CLASS_DATA (sym)
3860 ? CLASS_DATA (sym)->attr.class_pointer : sym->attr.pointer;
3975 || (comp->ts.type == BT_CLASS && CLASS_DATA (comp)
3976 && CLASS_DATA (comp)->attr.allocatable))
4000 || (comp->ts.type == BT_CLASS && CLASS_DATA (comp)->attr.allocatable))
4030 || (var->n.sym->ts.type == BT_CLASS && CLASS_DATA (var->n.sym)
4031 && CLASS_DATA (var->n.sym)->as)))
4034 ? CLASS_DATA (va
[all...]
H A Dresolve.c333 ? CLASS_DATA (sym)->as : sym->as;
347 && !(CLASS_DATA (sym)->attr.class_pointer
348 || CLASS_DATA (sym)->attr.allocatable)))
360 && (CLASS_DATA (sym)->attr.class_pointer
361 || CLASS_DATA (sym)->attr.allocatable
362 || CLASS_DATA (sym)->attr.target))
451 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
452 && CLASS_DATA (sym)->attr.codimension))
459 if (sym->as || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
460 && CLASS_DATA (sy
[all...]
H A Dclass.c258 int rank = CLASS_DATA (e)->as->rank;
259 gfc_array_spec *as = CLASS_DATA (e)->as;
341 && CLASS_DATA (e->symtree->n.sym)
342 && CLASS_DATA (e->symtree->n.sym)->attr.dimension
351 && CLASS_DATA (ref->u.c.component)->attr.dimension
376 && CLASS_DATA (e->symtree->n.sym)
377 && !CLASS_DATA (e->symtree->n.sym)->attr.dimension
388 && CLASS_DATA (ref->u.c.component)
389 && !CLASS_DATA (ref->u.c.component)->attr.dimension
872 else if (comp->ts.type == BT_CLASS && CLASS_DATA (com
[all...]
H A Dopenmp.c2662 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
2663 && CLASS_DATA (sym)->attr.pointer))
2667 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
2668 && CLASS_DATA (sym)->attr.cray_pointer))
2672 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
2673 && CLASS_DATA (sym)->attr.cray_pointee))
2702 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
2703 && CLASS_DATA (sym)->attr.allocatable))
2714 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
2715 && CLASS_DATA (sy
[all...]
H A Dtrans-decl.c1329 gfc_component *c = CLASS_DATA (sym);
1559 (CLASS_DATA (sym)->attr.dimension
1560 || CLASS_DATA (sym)->attr.allocatable))
2398 && CLASS_DATA (f->sym)->attr.codimension
2399 && !CLASS_DATA (f->sym)->attr.allocatable)))
2408 ? TREE_TYPE (CLASS_DATA (f->sym)->backend_decl)
2418 && CLASS_DATA (f->sym)->as->type != AS_DEFERRED))
2446 && CLASS_DATA (f->sym)->as->type != AS_DEFERRED))
3850 && !CLASS_DATA (f->sym)->attr.class_pointer
3851 && !CLASS_DATA (
[all...]
H A Dtrans.c1064 if (CLASS_DATA (comp)->attr.class_pointer)
1067 gfc_is_finalizable (CLASS_DATA (comp)->ts.u.derived, &final_expr);
1074 || (comp->ts.type == BT_CLASS && CLASS_DATA (comp)->attr.allocatable))
1175 if (!expr2->rank && !expr2->ref && CLASS_DATA (expr2->symtree->n.sym)->as)
1176 expr->rank = CLASS_DATA (expr2->symtree->n.sym)->as->rank;
H A Dparse.c2734 && CLASS_DATA (c)->attr.allocatable)
2745 && CLASS_DATA (c)->attr.class_pointer)
2761 && CLASS_DATA (c)->attr.codimension))
2779 && CLASS_DATA (c)->ts.u.derived->from_intmod
2781 && CLASS_DATA (c)->ts.u.derived->intmod_sym_id
2796 && CLASS_DATA (c)->ts.u.derived->from_intmod
2798 && CLASS_DATA (c)->ts.u.derived->intmod_sym_id
H A Dcheck.c209 && CLASS_DATA (e)->attr.codimension
210 && CLASS_DATA (e)->as->corank)
251 && CLASS_DATA (e)->attr.dimension
252 && CLASS_DATA (e)->as->rank)
504 && CLASS_DATA (e->symtree->n.sym)
505 ? CLASS_DATA (e->symtree->n.sym)->attr.class_pointer
514 && CLASS_DATA (ref->u.c.component)->attr.class_pointer)
H A Dgfortran.h3209 #define CLASS_DATA(sym) sym->ts.u.derived->components macro
3212 && CLASS_DATA (sym) \
3213 && CLASS_DATA (sym)->ts.u.derived \
3214 && CLASS_DATA (sym)->ts.u.derived->attr.unlimited_polymorphic)
H A Dtrans-array.c7777 || (c->ts.type == BT_CLASS && !CLASS_DATA (c)->attr.class_pointer))
7818 else if (c->ts.type == BT_CLASS && CLASS_DATA (c)->attr.allocatable
7819 && (!CLASS_DATA (c)->attr.codimension
7825 tmp = CLASS_DATA (c)->backend_decl;
7831 CLASS_DATA (c)->attr.codimension, NULL);
7835 CLASS_DATA (c)->ts);
7921 else if (c->ts.type == BT_CLASS && CLASS_DATA (c)->attr.allocatable)
7927 tmp = CLASS_DATA (c)->backend_decl;
7953 && (c->ts.type != BT_CLASS || CLASS_DATA (c)->attr.coarray_comp)
7993 if (c->ts.type == BT_CLASS && CLASS_DATA (
[all...]
H A Dtrans-types.c2344 && (!CLASS_DATA (from_cm)->attr.class_pointer || from_gsym))
2778 && (CLASS_DATA (f->sym)->ts.u.derived->attr.proc_pointer_comp
2779 || CLASS_DATA (f->sym)->ts.u.derived->attr.pointer_comp)))
H A Dtarget-memory.c611 result->ts = CLASS_DATA (result)->ts;
H A Dfrontend-passes.c657 ? CLASS_DATA (symbol)->as : symbol->as;
H A Dtrans-intrinsic.c1936 && !CLASS_DATA (arg->expr)->attr.allocatable
1937 && !CLASS_DATA (arg->expr)->attr.class_pointer));
6573 if (CLASS_DATA (arg1->expr)->attr.dimension)
H A Dtrans-stmt.c1637 if (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.dimension)
1683 && CLASS_DATA (e)->attr.dimension)
H A Ddecl.c6559 if (!gfc_copy_attr (&CLASS_DATA(sym)->attr, &current_attr, &var_locus))

Completed in 427 milliseconds