HomeSort by: relevance | last modified time | path
    Searched refs:CLASS_DATA (Results 1 - 25 of 49) sorted by relevancy

1 2

  /src/external/gpl3/gcc.old/dist/gcc/fortran/
primary.cc 2078 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
2079 && CLASS_DATA (sym)->attr.dimension))
2086 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
2087 && !CLASS_DATA (sym)->attr.codimension))
2154 && sym->ts.u.derived && CLASS_DATA (sym)
2155 && (CLASS_DATA (sym)->attr.dimension
2156 || CLASS_DATA (sym)->attr.codimension)))
2169 else if (sym->ts.type == BT_CLASS && CLASS_DATA (sym))
2170 as = CLASS_DATA (sym)->as;
2524 && CLASS_DATA (component)->as && !component->attr.proc_pointer
    [all...]
match.cc 4392 b2 = !(CLASS_DATA (sym)->attr.allocatable
4393 || CLASS_DATA (sym)->attr.class_pointer);
4804 b2 = !(CLASS_DATA (sym) && (CLASS_DATA (sym)->attr.allocatable
4805 || CLASS_DATA (sym)->attr.class_pointer));
5786 && CLASS_DATA (sym)
5787 && !gfc_add_in_equivalence (&CLASS_DATA (sym)->attr,
6267 && CLASS_DATA (selector)
6268 && CLASS_DATA (selector)->as
6269 && CLASS_DATA (selector)->as->type == AS_ASSUMED_RANK
    [all...]
resolve.cc 337 ? CLASS_DATA (sym)->as : sym->as;
351 && !(CLASS_DATA (sym)->attr.class_pointer
352 || CLASS_DATA (sym)->attr.allocatable)))
364 && (CLASS_DATA (sym)->attr.class_pointer
365 || CLASS_DATA (sym)->attr.allocatable
366 || CLASS_DATA (sym)->attr.target))
455 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
456 && CLASS_DATA (sym)->attr.codimension))
463 if (sym->as || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
464 && CLASS_DATA (sym)->as)
    [all...]
interface.cc 787 ? CLASS_DATA (s1)->as : s1->as;
790 ? CLASS_DATA (s2)->as : s2->as;
1231 CLASS_DATA(s1)->attr.allocatable : s1->attr.allocatable;
1234 CLASS_DATA(s2)->attr.class_pointer : s2->attr.pointer;
1317 if (sym->ts.type == BT_CLASS && CLASS_DATA (sym))
1318 as = CLASS_DATA (sym)->as;
2193 || (formal->ts.type == BT_CLASS && CLASS_DATA (formal)->attr.allocatable))
2216 || (formal->ts.type == BT_CLASS && CLASS_DATA (formal)
2217 && CLASS_DATA (formal)->attr.class_pointer))
2467 CLASS_DATA (actual)->ts.u.derived))
    [all...]
trans-expr.cc 489 && CLASS_DATA (ref->u.c.component)->attr.allocatable)
1712 && CLASS_DATA (code->expr1)->attr.dimension)
1715 *tmparr = *CLASS_DATA (code->expr1)->as;
1777 tree class_data; local
1819 class_data = gfc_class_data_get (rse_expr);
1822 is_descriptor = GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (class_data));
1824 class_data = gfc_conv_descriptor_data_get (class_data);
1825 class_data = gfc_evaluate_now (class_data, block)
    [all...]
expr.cc 1175 && CLASS_DATA (sym)->attr.dimension
1176 && CLASS_DATA (sym)->attr.class_pointer)
4398 target = CLASS_DATA (sym)->attr.target;
4589 pointer = comp->ts.type == BT_CLASS && CLASS_DATA (comp)
4590 ? CLASS_DATA (comp)->attr.class_pointer : comp->attr.pointer;
4595 pointer = sym->ts.type == BT_CLASS && CLASS_DATA (sym)
4596 ? CLASS_DATA (sym)->attr.class_pointer : sym->attr.pointer;
5019 return comp->ts.type == BT_CLASS && comp->attr.class_ok && CLASS_DATA (comp)
5020 && CLASS_DATA (comp)->attr.allocatable;
5026 return comp->ts.type == BT_CLASS && comp->attr.class_ok && CLASS_DATA (comp
    [all...]
class.cc 266 int rank = CLASS_DATA (e)->as->rank;
267 gfc_array_spec *as = CLASS_DATA (e)->as;
347 && CLASS_DATA (e->symtree->n.sym)
348 && CLASS_DATA (e->symtree->n.sym)->attr.dimension
357 && CLASS_DATA (ref->u.c.component)->attr.dimension
382 && CLASS_DATA (e->symtree->n.sym)
383 && !CLASS_DATA (e->symtree->n.sym)->attr.dimension
395 && CLASS_DATA (ref->u.c.component)
396 && !CLASS_DATA (ref->u.c.component)->attr.dimension
942 else if (comp->ts.type == BT_CLASS && CLASS_DATA (comp
    [all...]
trans-decl.cc 730 && CLASS_DATA (sym)->ts.u.derived->attr.has_dtio_procs)))
984 array_attr = is_classarray ? &CLASS_DATA (sym)->attr : &sym->attr;
985 as = is_classarray ? CLASS_DATA (sym)->as : sym->as;
1206 as = is_classarray ? CLASS_DATA (sym)->as : sym->as;
1207 array_attr = is_classarray ? &CLASS_DATA (sym)->attr : &sym->attr;
1214 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.class_pointer)
1307 if ((sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.optional)
1568 gfc_component *c = CLASS_DATA (sym);
1853 (CLASS_DATA (sym)->attr.dimension
1854 || CLASS_DATA (sym)->attr.allocatable)
    [all...]
gfortran.h 3896 #define CLASS_DATA(sym) sym->ts.u.derived->components
3899 && CLASS_DATA (sym) \
3900 && CLASS_DATA (sym)->ts.u.derived \
3901 && CLASS_DATA (sym)->ts.u.derived->attr.unlimited_polymorphic)
3904 && CLASS_DATA (sym) \
3905 && CLASS_DATA (sym)->attr.dimension \
3906 && !CLASS_DATA (sym)->attr.class_pointer)
3908 (sym->ts.type == BT_CLASS && sym->attr.class_ok && CLASS_DATA (sym) \
3909 ? CLASS_DATA (sym)->attr.class_pointer : sym->attr.pointer)
parse.cc 3234 && CLASS_DATA (c)->attr.allocatable)
3245 && CLASS_DATA (c)->attr.class_pointer)
3261 && CLASS_DATA (c)->attr.codimension))
3279 && CLASS_DATA (c)->ts.u.derived->from_intmod
3281 && CLASS_DATA (c)->ts.u.derived->intmod_sym_id
3296 && CLASS_DATA (c)->ts.u.derived->from_intmod
3298 && CLASS_DATA (c)->ts.u.derived->intmod_sym_id
4978 if (sym->ts.type == BT_CLASS && CLASS_DATA (sym))
4980 if ((!CLASS_DATA (sym)->as && rank != 0)
4981 || (CLASS_DATA (sym)->a
    [all...]
trans-types.cc 1378 array_attr = is_classarray ? &CLASS_DATA (sym)->attr : &sym->attr;
1379 as = is_classarray ? CLASS_DATA (sym)->as : sym->as;
1385 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.class_pointer)
2376 if ((sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.optional)
2488 && (!CLASS_DATA (from_cm)->attr.class_pointer || from_gsym))
2791 && (c->ts.type != BT_CLASS || (CLASS_DATA (c)->ts.u.derived
2792 && !gfc_compare_derived_types (derived, CLASS_DATA (c)->ts.u.derived))))
3063 is_class = f->sym->ts.type == BT_CLASS && CLASS_DATA (f->sym)
3065 is_pointer = is_class ? CLASS_DATA (f->sym)->attr.class_pointer
3075 && (CLASS_DATA (f->sym)->ts.u.derived->attr.proc_pointer_com
    [all...]
trans-stmt.cc 1817 if (CLASS_DATA (sym)->as && CLASS_DATA (sym)->as->rank > 0)
1818 rank = CLASS_DATA (sym)->as->rank;
1876 && (CLASS_DATA (sym)->attr.allocatable
1877 || CLASS_DATA (sym)->attr.pointer)))
2039 if (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.dimension)
2095 && CLASS_DATA (e)->attr.dimension)
2222 && CLASS_DATA (sym)->ts.u.derived
2223 && CLASS_DATA (sym)->ts.u.derived->attr.pdt_type)
2226 tmp = gfc_deallocate_pdt_comp (CLASS_DATA (sym)->ts.u.derived
    [all...]
trans-array.cc 1005 && CLASS_DATA (sym)->attr.dimension)
1582 tree class_data; local
1592 class_data = gfc_class_data_get (tmp);
1595 gfc_add_modify (pre, class_data, tmp);
1599 tmp = gfc_conv_descriptor_dtype (class_data);
1603 desc = class_data;
2858 ? &CLASS_DATA (expr)->ts : &expr->ts);
6484 as = IS_CLASS_ARRAY (sym) ? CLASS_DATA (sym)->as : sym->as;
6527 as = IS_CLASS_ARRAY (sym) ? CLASS_DATA (sym)->as : sym->as;
6774 if ((sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.optional
    [all...]
  /src/external/gpl3/gcc/dist/gcc/fortran/
primary.cc 2094 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
2095 && CLASS_DATA (sym)->attr.dimension))
2102 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
2103 && !CLASS_DATA (sym)->attr.codimension))
2183 && sym->ts.u.derived && CLASS_DATA (sym)
2184 && (CLASS_DATA (sym)->attr.dimension
2185 || CLASS_DATA (sym)->attr.codimension)))
2198 else if (sym->ts.type == BT_CLASS && CLASS_DATA (sym))
2199 as = CLASS_DATA (sym)->as;
2646 && CLASS_DATA (component)->as && !component->attr.proc_pointer
    [all...]
match.cc 4400 b2 = !(CLASS_DATA (sym)->attr.allocatable
4401 || CLASS_DATA (sym)->attr.class_pointer);
4812 b2 = !(CLASS_DATA (sym) && (CLASS_DATA (sym)->attr.allocatable
4813 || CLASS_DATA (sym)->attr.class_pointer));
5833 && CLASS_DATA (sym)
5834 && !gfc_add_in_equivalence (&CLASS_DATA (sym)->attr,
6342 && CLASS_DATA (selector)
6343 && CLASS_DATA (selector)->as
6344 && CLASS_DATA (selector)->as->type == AS_ASSUMED_RANK
    [all...]
resolve.cc 352 ? CLASS_DATA (sym)->as : sym->as;
369 && !(CLASS_DATA (sym)->attr.class_pointer
370 || CLASS_DATA (sym)->attr.allocatable)))
382 && (CLASS_DATA (sym)->attr.class_pointer
383 || CLASS_DATA (sym)->attr.allocatable
384 || CLASS_DATA (sym)->attr.target))
473 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
474 && CLASS_DATA (sym)->attr.codimension))
481 if (sym->as || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)
482 && CLASS_DATA (sym)->as)
    [all...]
interface.cc 833 ? CLASS_DATA (s1)->as : s1->as;
836 ? CLASS_DATA (s2)->as : s2->as;
1277 CLASS_DATA(s1)->attr.allocatable : s1->attr.allocatable;
1280 CLASS_DATA(s2)->attr.class_pointer : s2->attr.pointer;
1363 if (sym->ts.type == BT_CLASS && CLASS_DATA (sym))
1364 as = CLASS_DATA (sym)->as;
2245 || (formal->ts.type == BT_CLASS && CLASS_DATA (formal)->attr.allocatable))
2268 || (formal->ts.type == BT_CLASS && CLASS_DATA (formal)
2269 && CLASS_DATA (formal)->attr.class_pointer))
2520 CLASS_DATA (actual)->ts.u.derived))
    [all...]
trans-expr.cc 491 && CLASS_DATA (ref->u.c.component)->attr.allocatable)
1786 && CLASS_DATA (code->expr1)->attr.dimension)
1789 *tmparr = *CLASS_DATA (code->expr1)->as;
1853 tree class_data; local
1895 class_data = gfc_class_data_get (rse_expr);
1898 is_descriptor = GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (class_data));
1900 class_data = gfc_conv_descriptor_data_get (class_data);
1901 class_data = gfc_evaluate_now (class_data, block)
    [all...]
expr.cc 1188 && CLASS_DATA (sym)->attr.dimension
1189 && CLASS_DATA (sym)->attr.class_pointer)
4414 target = CLASS_DATA (sym)->attr.target;
4605 pointer = comp->ts.type == BT_CLASS && CLASS_DATA (comp)
4606 ? CLASS_DATA (comp)->attr.class_pointer : comp->attr.pointer;
4611 pointer = sym->ts.type == BT_CLASS && CLASS_DATA (sym)
4612 ? CLASS_DATA (sym)->attr.class_pointer : sym->attr.pointer;
5035 return comp->ts.type == BT_CLASS && comp->attr.class_ok && CLASS_DATA (comp)
5036 && CLASS_DATA (comp)->attr.allocatable;
5042 return comp->ts.type == BT_CLASS && comp->attr.class_ok && CLASS_DATA (comp
    [all...]
class.cc 266 int rank = CLASS_DATA (e)->as->rank;
267 gfc_array_spec *as = CLASS_DATA (e)->as;
347 && CLASS_DATA (e->symtree->n.sym)
348 && CLASS_DATA (e->symtree->n.sym)->attr.dimension
357 && CLASS_DATA (ref->u.c.component)->attr.dimension
382 && CLASS_DATA (e->symtree->n.sym)
383 && !CLASS_DATA (e->symtree->n.sym)->attr.dimension
395 && CLASS_DATA (ref->u.c.component)
396 && !CLASS_DATA (ref->u.c.component)->attr.dimension
1008 else if (comp->ts.type == BT_CLASS && CLASS_DATA (comp
    [all...]
trans-decl.cc 745 && CLASS_DATA (sym)->ts.u.derived->attr.has_dtio_procs)))
1032 array_attr = is_classarray ? &CLASS_DATA (sym)->attr : &sym->attr;
1033 as = is_classarray ? CLASS_DATA (sym)->as : sym->as;
1254 as = is_classarray ? CLASS_DATA (sym)->as : sym->as;
1255 array_attr = is_classarray ? &CLASS_DATA (sym)->attr : &sym->attr;
1262 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.class_pointer)
1355 if ((sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.optional)
1620 gfc_component *c = CLASS_DATA (sym);
1926 (CLASS_DATA (sym)->attr.dimension
1927 || CLASS_DATA (sym)->attr.allocatable)
    [all...]
gfortran.h 4034 #define CLASS_DATA(sym) sym->ts.u.derived->components
4037 && CLASS_DATA (sym) \
4038 && CLASS_DATA (sym)->ts.u.derived \
4039 && CLASS_DATA (sym)->ts.u.derived->attr.unlimited_polymorphic)
4042 && CLASS_DATA (sym) \
4043 && CLASS_DATA (sym)->attr.dimension \
4044 && !CLASS_DATA (sym)->attr.class_pointer)
4046 (sym->ts.type == BT_CLASS && sym->attr.class_ok && CLASS_DATA (sym) \
4047 ? CLASS_DATA (sym)->attr.class_pointer : sym->attr.pointer)
4049 (sym->ts.type == BT_CLASS && sym->attr.class_ok && CLASS_DATA (sym)
    [all...]
parse.cc 840 alloc_ptr = (CLASS_DATA (n->sym)->attr.allocatable
841 || CLASS_DATA (n->sym)->attr.class_pointer);
3465 && CLASS_DATA (c)->attr.allocatable)
3476 && CLASS_DATA (c)->attr.class_pointer)
3492 && CLASS_DATA (c)->attr.codimension))
3510 && CLASS_DATA (c)->ts.u.derived->from_intmod
3512 && CLASS_DATA (c)->ts.u.derived->intmod_sym_id
3527 && CLASS_DATA (c)->ts.u.derived->from_intmod
3529 && CLASS_DATA (c)->ts.u.derived->intmod_sym_id
5206 if (CLASS_DATA (sym)->as
    [all...]
trans-types.cc 1384 array_attr = is_classarray ? &CLASS_DATA (sym)->attr : &sym->attr;
1385 as = is_classarray ? CLASS_DATA (sym)->as : sym->as;
1391 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.class_pointer)
2388 if ((sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.optional)
2497 && (!CLASS_DATA (from_cm)->attr.class_pointer || from_gsym))
2800 && (c->ts.type != BT_CLASS || (CLASS_DATA (c)->ts.u.derived
2801 && !gfc_compare_derived_types (derived, CLASS_DATA (c)->ts.u.derived))))
3094 is_class = f->sym->ts.type == BT_CLASS && CLASS_DATA (f->sym)
3096 is_pointer = is_class ? CLASS_DATA (f->sym)->attr.class_pointer
3106 && (CLASS_DATA (f->sym)->ts.u.derived->attr.proc_pointer_com
    [all...]
trans-stmt.cc 1822 if (CLASS_DATA (sym)->as && CLASS_DATA (sym)->as->rank > 0)
1823 rank = CLASS_DATA (sym)->as->rank;
1881 && (CLASS_DATA (sym)->attr.allocatable
1882 || CLASS_DATA (sym)->attr.pointer)))
2061 else if (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.dimension)
2117 && CLASS_DATA (e)->attr.dimension)
2170 || CLASS_DATA (e)->attr.class_pointer))
2292 && CLASS_DATA (sym)->ts.u.derived
2293 && CLASS_DATA (sym)->ts.u.derived->attr.pdt_type
    [all...]

Completed in 84 milliseconds

1 2