Home
last modified time | relevance | path

Searched refs:CLASS_DATA (Results 1 – 25 of 53) sorted by relevance

123

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dprimary.c2099 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) in gfc_match_varspec()
2100 && CLASS_DATA (sym)->attr.dimension)) in gfc_match_varspec()
2107 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) in gfc_match_varspec()
2108 && !CLASS_DATA (sym)->attr.codimension)) in gfc_match_varspec()
2175 && sym->ts.u.derived && CLASS_DATA (sym) in gfc_match_varspec()
2176 && (CLASS_DATA (sym)->attr.dimension in gfc_match_varspec()
2177 || CLASS_DATA (sym)->attr.codimension))) in gfc_match_varspec()
2190 else if (sym->ts.type == BT_CLASS && CLASS_DATA (sym)) in gfc_match_varspec()
2191 as = CLASS_DATA (sym)->as; in gfc_match_varspec()
2536 && CLASS_DATA (component)->as && !component->attr.proc_pointer) in gfc_match_varspec()
[all …]
H A Dmatch.c4351 b2 = !(CLASS_DATA (sym)->attr.allocatable in gfc_match_allocate()
4352 || CLASS_DATA (sym)->attr.class_pointer); in gfc_match_allocate()
4763 b2 = !(CLASS_DATA (sym) && (CLASS_DATA (sym)->attr.allocatable in gfc_match_deallocate()
4764 || CLASS_DATA (sym)->attr.class_pointer)); in gfc_match_deallocate()
5717 && CLASS_DATA (sym) in gfc_match_equivalence()
5718 && !gfc_add_in_equivalence (&CLASS_DATA (sym)->attr, in gfc_match_equivalence()
6176 && CLASS_DATA (selector) in copy_ts_from_selector_to_associate()
6177 && CLASS_DATA (selector)->as in copy_ts_from_selector_to_associate()
6178 && CLASS_DATA (selector)->as->type == AS_ASSUMED_RANK) in copy_ts_from_selector_to_associate()
6181 assoc_sym->as = gfc_copy_array_spec (CLASS_DATA (selector)->as); in copy_ts_from_selector_to_associate()
[all …]
H A Dresolve.c337 ? CLASS_DATA (sym)->as : sym->as; in gfc_resolve_formal_arglist()
351 && !(CLASS_DATA (sym)->attr.class_pointer in gfc_resolve_formal_arglist()
352 || CLASS_DATA (sym)->attr.allocatable))) in gfc_resolve_formal_arglist()
364 && (CLASS_DATA (sym)->attr.class_pointer in gfc_resolve_formal_arglist()
365 || CLASS_DATA (sym)->attr.allocatable in gfc_resolve_formal_arglist()
366 || CLASS_DATA (sym)->attr.target)) in gfc_resolve_formal_arglist()
455 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) in gfc_resolve_formal_arglist()
456 && CLASS_DATA (sym)->attr.codimension)) in gfc_resolve_formal_arglist()
463 if (sym->as || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) in gfc_resolve_formal_arglist()
464 && CLASS_DATA (sym)->as)) in gfc_resolve_formal_arglist()
[all …]
H A Dtrans-expr.c411 if (array_ref && CLASS_DATA (ref->u.c.component)->attr.allocatable) in gfc_find_and_cut_at_last_class_ref()
1618 && CLASS_DATA (code->expr1)->attr.dimension) in gfc_trans_class_init_assign()
1621 *tmparr = *CLASS_DATA (code->expr1)->as; in gfc_trans_class_init_assign()
1946 && !CLASS_DATA (sym)->attr.allocatable in gfc_conv_expr_present()
1947 && !CLASS_DATA (sym)->attr.class_pointer)) in gfc_conv_expr_present()
1956 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->as)) in gfc_conv_expr_present()
2107 && CLASS_DATA (expr->symtree->n.sym)->attr.codimension) in gfc_get_tree_for_caf_expr()
2116 && CLASS_DATA (ref->u.c.component)->attr.codimension) in gfc_get_tree_for_caf_expr()
2131 if (CLASS_DATA (expr->symtree->n.sym)->attr.codimension) in gfc_get_tree_for_caf_expr()
2140 if (CLASS_DATA (expr->symtree->n.sym)->attr.codimension) in gfc_get_tree_for_caf_expr()
[all …]
H A Dinterface.c776 ? CLASS_DATA (s1)->as : s1->as; in compare_rank()
779 ? CLASS_DATA (s2)->as : s2->as; in compare_rank()
1220 CLASS_DATA(s1)->attr.allocatable : s1->attr.allocatable; in compare_ptr_alloc()
1223 CLASS_DATA(s2)->attr.class_pointer : s2->attr.pointer; in compare_ptr_alloc()
1306 if (sym->ts.type == BT_CLASS && CLASS_DATA (sym)) in symbol_rank()
1307 as = CLASS_DATA (sym)->as; in symbol_rank()
2173 || (formal->ts.type == BT_CLASS && CLASS_DATA (formal)->attr.allocatable)) in compare_allocatable()
2196 || (formal->ts.type == BT_CLASS && CLASS_DATA (formal) in compare_pointer()
2197 && CLASS_DATA (formal)->attr.class_pointer)) in compare_pointer()
2417 CLASS_DATA (actual)->ts.u.derived))) in compare_parameter()
[all …]
H A Dtrans-decl.c725 && CLASS_DATA (sym)->ts.u.derived->attr.has_dtio_procs))) in gfc_finish_var_decl()
979 array_attr = is_classarray ? &CLASS_DATA (sym)->attr : &sym->attr; in gfc_build_qualified_array()
980 as = is_classarray ? CLASS_DATA (sym)->as : sym->as; in gfc_build_qualified_array()
1201 as = is_classarray ? CLASS_DATA (sym)->as : sym->as; in gfc_build_dummy_array_decl()
1202 array_attr = is_classarray ? &CLASS_DATA (sym)->attr : &sym->attr; in gfc_build_dummy_array_decl()
1209 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.class_pointer) in gfc_build_dummy_array_decl()
1526 gfc_component *c = CLASS_DATA (sym); in gfc_get_symbol_decl()
1814 (CLASS_DATA (sym)->attr.dimension in gfc_get_symbol_decl()
1815 || CLASS_DATA (sym)->attr.allocatable)) in gfc_get_symbol_decl()
1899 && CLASS_DATA (sym)->ts.u.derived->attr.pdt_type)) in gfc_get_symbol_decl()
[all …]
H A Dexpr.c1165 && CLASS_DATA (sym)->attr.dimension in is_subref_array()
1166 && CLASS_DATA (sym)->attr.class_pointer) in is_subref_array()
4366 target = CLASS_DATA (sym)->attr.target; in gfc_check_pointer_assign()
4549 pointer = comp->ts.type == BT_CLASS && CLASS_DATA (comp) in gfc_check_assign_symbol()
4550 ? CLASS_DATA (comp)->attr.class_pointer : comp->attr.pointer; in gfc_check_assign_symbol()
4555 pointer = sym->ts.type == BT_CLASS && CLASS_DATA (sym) in gfc_check_assign_symbol()
4556 ? CLASS_DATA (sym)->attr.class_pointer : sym->attr.pointer; in gfc_check_assign_symbol()
4979 return comp->ts.type == BT_CLASS && CLASS_DATA (comp) in class_allocatable()
4980 && CLASS_DATA (comp)->attr.allocatable; in class_allocatable()
4986 return comp->ts.type == BT_CLASS && CLASS_DATA (comp) in class_pointer()
[all …]
H A Dclass.c264 int rank = CLASS_DATA (e)->as->rank; in gfc_add_class_array_ref()
265 gfc_array_spec *as = CLASS_DATA (e)->as; in gfc_add_class_array_ref()
345 && CLASS_DATA (e->symtree->n.sym) in gfc_is_class_array_ref()
346 && CLASS_DATA (e->symtree->n.sym)->attr.dimension in gfc_is_class_array_ref()
355 && CLASS_DATA (ref->u.c.component)->attr.dimension in gfc_is_class_array_ref()
380 && CLASS_DATA (e->symtree->n.sym) in gfc_is_class_scalar_expr()
381 && !CLASS_DATA (e->symtree->n.sym)->attr.dimension in gfc_is_class_scalar_expr()
393 && CLASS_DATA (ref->u.c.component) in gfc_is_class_scalar_expr()
394 && !CLASS_DATA (ref->u.c.component)->attr.dimension in gfc_is_class_scalar_expr()
927 else if (comp->ts.type == BT_CLASS && CLASS_DATA (comp) in comp_is_finalizable()
[all …]
H A Dtrans-types.c1343 array_attr = is_classarray ? &CLASS_DATA (sym)->attr : &sym->attr; in gfc_is_nodesc_array()
1344 as = is_classarray ? CLASS_DATA (sym)->as : sym->as; in gfc_is_nodesc_array()
1350 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.class_pointer) in gfc_is_nodesc_array()
2411 && (!CLASS_DATA (from_cm)->attr.class_pointer || from_gsym)) in gfc_copy_dt_decls_ifequal()
2710 && (c->ts.type != BT_CLASS || (CLASS_DATA (c)->ts.u.derived in gfc_get_derived_type()
2711 && !gfc_compare_derived_types (derived, CLASS_DATA (c)->ts.u.derived)))) in gfc_get_derived_type()
2962 is_class = f->sym->ts.type == BT_CLASS && CLASS_DATA (f->sym) in create_fn_spec()
2964 is_pointer = is_class ? CLASS_DATA (f->sym)->attr.class_pointer in create_fn_spec()
2974 && (CLASS_DATA (f->sym)->ts.u.derived->attr.proc_pointer_comp in create_fn_spec()
2975 || CLASS_DATA (f->sym)->ts.u.derived->attr.pointer_comp)) in create_fn_spec()
[all …]
H A Dopenmp.c3919 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) in check_symbol_not_pointer()
3920 && CLASS_DATA (sym)->attr.pointer)) in check_symbol_not_pointer()
3924 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) in check_symbol_not_pointer()
3925 && CLASS_DATA (sym)->attr.cray_pointer)) in check_symbol_not_pointer()
3929 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) in check_symbol_not_pointer()
3930 && CLASS_DATA (sym)->attr.cray_pointee)) in check_symbol_not_pointer()
3958 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) in resolve_oacc_deviceptr_clause()
3959 && CLASS_DATA (sym)->attr.class_pointer)) in resolve_oacc_deviceptr_clause()
3963 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) in resolve_oacc_deviceptr_clause()
3964 && CLASS_DATA (sym)->attr.cray_pointer)) in resolve_oacc_deviceptr_clause()
[all …]
H A Dtrans-array.c922 && CLASS_DATA (expr->symtree->n.sym)->attr.dimension) in gfc_get_array_span()
2736 ? &CLASS_DATA (expr)->ts : &expr->ts); in trans_array_constructor()
6339 as = IS_CLASS_ARRAY (sym) ? CLASS_DATA (sym)->as : sym->as; in gfc_trans_array_cobounds()
6382 as = IS_CLASS_ARRAY (sym) ? CLASS_DATA (sym)->as : sym->as; in gfc_trans_array_bounds()
6687 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.class_pointer) in gfc_trans_dummy_array_bias()
6689 || (is_classarray && CLASS_DATA (sym)->attr.allocatable)) in gfc_trans_dummy_array_bias()
6716 as = IS_CLASS_ARRAY (sym) ? CLASS_DATA (sym)->as : sym->as; in gfc_trans_dummy_array_bias()
7992 && !CLASS_DATA (expr->symtree->n.sym)->attr.class_pointer) in gfc_conv_expr_descriptor()
8957 || (c->ts.type == BT_CLASS && der_type == CLASS_DATA (c)->ts.u.derived); in structure_alloc_comps()
8982 attr = &CLASS_DATA (c)->attr; in structure_alloc_comps()
[all …]
H A Dparse.c2984 && CLASS_DATA (c)->attr.allocatable) in check_component()
2995 && CLASS_DATA (c)->attr.class_pointer) in check_component()
3011 && CLASS_DATA (c)->attr.codimension)) in check_component()
3029 && CLASS_DATA (c)->ts.u.derived->from_intmod in check_component()
3031 && CLASS_DATA (c)->ts.u.derived->intmod_sym_id in check_component()
3046 && CLASS_DATA (c)->ts.u.derived->from_intmod in check_component()
3048 && CLASS_DATA (c)->ts.u.derived->intmod_sym_id in check_component()
4728 if (sym->ts.type == BT_CLASS && CLASS_DATA (sym)) in parse_associate()
4730 if ((!CLASS_DATA (sym)->as && rank != 0) in parse_associate()
4731 || (CLASS_DATA (sym)->as in parse_associate()
[all …]
H A Dgfortran.h3604 #define CLASS_DATA(sym) sym->ts.u.derived->components macro
3607 && CLASS_DATA (sym) \
3608 && CLASS_DATA (sym)->ts.u.derived \
3609 && CLASS_DATA (sym)->ts.u.derived->attr.unlimited_polymorphic)
3612 && CLASS_DATA (sym) \
3613 && CLASS_DATA (sym)->attr.dimension \
3614 && !CLASS_DATA (sym)->attr.class_pointer)
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dprimary.cc2078 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) in gfc_match_varspec()
2079 && CLASS_DATA (sym)->attr.dimension)) in gfc_match_varspec()
2086 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) in gfc_match_varspec()
2087 && !CLASS_DATA (sym)->attr.codimension)) in gfc_match_varspec()
2154 && sym->ts.u.derived && CLASS_DATA (sym) in gfc_match_varspec()
2155 && (CLASS_DATA (sym)->attr.dimension in gfc_match_varspec()
2156 || CLASS_DATA (sym)->attr.codimension))) in gfc_match_varspec()
2169 else if (sym->ts.type == BT_CLASS && CLASS_DATA (sym)) in gfc_match_varspec()
2170 as = CLASS_DATA (sym)->as; in gfc_match_varspec()
2524 && CLASS_DATA (component)->as && !component->attr.proc_pointer) in gfc_match_varspec()
[all …]
H A Dmatch.cc4392 b2 = !(CLASS_DATA (sym)->attr.allocatable in gfc_match_allocate()
4393 || CLASS_DATA (sym)->attr.class_pointer); in gfc_match_allocate()
4804 b2 = !(CLASS_DATA (sym) && (CLASS_DATA (sym)->attr.allocatable in gfc_match_deallocate()
4805 || CLASS_DATA (sym)->attr.class_pointer)); in gfc_match_deallocate()
5786 && CLASS_DATA (sym) in gfc_match_equivalence()
5787 && !gfc_add_in_equivalence (&CLASS_DATA (sym)->attr, in gfc_match_equivalence()
6267 && CLASS_DATA (selector) in copy_ts_from_selector_to_associate()
6268 && CLASS_DATA (selector)->as in copy_ts_from_selector_to_associate()
6269 && CLASS_DATA (selector)->as->type == AS_ASSUMED_RANK) in copy_ts_from_selector_to_associate()
6272 assoc_sym->as = gfc_copy_array_spec (CLASS_DATA (selector)->as); in copy_ts_from_selector_to_associate()
[all …]
H A Dtrans-expr.cc489 && CLASS_DATA (ref->u.c.component)->attr.allocatable) in gfc_find_and_cut_at_last_class_ref()
1712 && CLASS_DATA (code->expr1)->attr.dimension) in gfc_trans_class_init_assign()
1715 *tmparr = *CLASS_DATA (code->expr1)->as; in gfc_trans_class_init_assign()
2040 && !CLASS_DATA (sym)->attr.allocatable in gfc_conv_expr_present()
2041 && !CLASS_DATA (sym)->attr.class_pointer)) in gfc_conv_expr_present()
2050 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->as)) in gfc_conv_expr_present()
2201 && CLASS_DATA (expr->symtree->n.sym)->attr.codimension) in gfc_get_tree_for_caf_expr()
2210 && CLASS_DATA (ref->u.c.component)->attr.codimension) in gfc_get_tree_for_caf_expr()
2225 if (CLASS_DATA (expr->symtree->n.sym)->attr.codimension) in gfc_get_tree_for_caf_expr()
2234 if (CLASS_DATA (expr->symtree->n.sym)->attr.codimension) in gfc_get_tree_for_caf_expr()
[all …]
H A Dresolve.cc337 ? CLASS_DATA (sym)->as : sym->as; in gfc_resolve_formal_arglist()
351 && !(CLASS_DATA (sym)->attr.class_pointer in gfc_resolve_formal_arglist()
352 || CLASS_DATA (sym)->attr.allocatable))) in gfc_resolve_formal_arglist()
364 && (CLASS_DATA (sym)->attr.class_pointer in gfc_resolve_formal_arglist()
365 || CLASS_DATA (sym)->attr.allocatable in gfc_resolve_formal_arglist()
366 || CLASS_DATA (sym)->attr.target)) in gfc_resolve_formal_arglist()
455 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) in gfc_resolve_formal_arglist()
456 && CLASS_DATA (sym)->attr.codimension)) in gfc_resolve_formal_arglist()
463 if (sym->as || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) in gfc_resolve_formal_arglist()
464 && CLASS_DATA (sym)->as)) in gfc_resolve_formal_arglist()
[all …]
H A Dinterface.cc787 ? CLASS_DATA (s1)->as : s1->as; in compare_rank()
790 ? CLASS_DATA (s2)->as : s2->as; in compare_rank()
1231 CLASS_DATA(s1)->attr.allocatable : s1->attr.allocatable; in compare_ptr_alloc()
1234 CLASS_DATA(s2)->attr.class_pointer : s2->attr.pointer; in compare_ptr_alloc()
1317 if (sym->ts.type == BT_CLASS && CLASS_DATA (sym)) in symbol_rank()
1318 as = CLASS_DATA (sym)->as; in symbol_rank()
2193 || (formal->ts.type == BT_CLASS && CLASS_DATA (formal)->attr.allocatable)) in compare_allocatable()
2216 || (formal->ts.type == BT_CLASS && CLASS_DATA (formal) in compare_pointer()
2217 && CLASS_DATA (formal)->attr.class_pointer)) in compare_pointer()
2467 CLASS_DATA (actual)->ts.u.derived))) in compare_parameter()
[all …]
H A Dexpr.cc1175 && CLASS_DATA (sym)->attr.dimension in is_subref_array()
1176 && CLASS_DATA (sym)->attr.class_pointer) in is_subref_array()
4398 target = CLASS_DATA (sym)->attr.target; in gfc_check_pointer_assign()
4589 pointer = comp->ts.type == BT_CLASS && CLASS_DATA (comp) in gfc_check_assign_symbol()
4590 ? CLASS_DATA (comp)->attr.class_pointer : comp->attr.pointer; in gfc_check_assign_symbol()
4595 pointer = sym->ts.type == BT_CLASS && CLASS_DATA (sym) in gfc_check_assign_symbol()
4596 ? CLASS_DATA (sym)->attr.class_pointer : sym->attr.pointer; in gfc_check_assign_symbol()
5019 return comp->ts.type == BT_CLASS && comp->attr.class_ok && CLASS_DATA (comp) in class_allocatable()
5020 && CLASS_DATA (comp)->attr.allocatable; in class_allocatable()
5026 return comp->ts.type == BT_CLASS && comp->attr.class_ok && CLASS_DATA (comp) in class_pointer()
[all …]
H A Dtrans-decl.cc730 && CLASS_DATA (sym)->ts.u.derived->attr.has_dtio_procs))) in gfc_finish_var_decl()
984 array_attr = is_classarray ? &CLASS_DATA (sym)->attr : &sym->attr; in gfc_build_qualified_array()
985 as = is_classarray ? CLASS_DATA (sym)->as : sym->as; in gfc_build_qualified_array()
1206 as = is_classarray ? CLASS_DATA (sym)->as : sym->as; in gfc_build_dummy_array_decl()
1207 array_attr = is_classarray ? &CLASS_DATA (sym)->attr : &sym->attr; in gfc_build_dummy_array_decl()
1214 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.class_pointer) in gfc_build_dummy_array_decl()
1307 if ((sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.optional) in gfc_build_dummy_array_decl()
1568 gfc_component *c = CLASS_DATA (sym); in gfc_get_symbol_decl()
1853 (CLASS_DATA (sym)->attr.dimension in gfc_get_symbol_decl()
1854 || CLASS_DATA (sym)->attr.allocatable)) in gfc_get_symbol_decl()
[all …]
H A Dclass.cc266 int rank = CLASS_DATA (e)->as->rank; in gfc_add_class_array_ref()
267 gfc_array_spec *as = CLASS_DATA (e)->as; in gfc_add_class_array_ref()
347 && CLASS_DATA (e->symtree->n.sym) in gfc_is_class_array_ref()
348 && CLASS_DATA (e->symtree->n.sym)->attr.dimension in gfc_is_class_array_ref()
357 && CLASS_DATA (ref->u.c.component)->attr.dimension in gfc_is_class_array_ref()
382 && CLASS_DATA (e->symtree->n.sym) in gfc_is_class_scalar_expr()
383 && !CLASS_DATA (e->symtree->n.sym)->attr.dimension in gfc_is_class_scalar_expr()
395 && CLASS_DATA (ref->u.c.component) in gfc_is_class_scalar_expr()
396 && !CLASS_DATA (ref->u.c.component)->attr.dimension in gfc_is_class_scalar_expr()
942 else if (comp->ts.type == BT_CLASS && CLASS_DATA (comp) in comp_is_finalizable()
[all …]
H A Dtrans-types.cc1372 array_attr = is_classarray ? &CLASS_DATA (sym)->attr : &sym->attr; in gfc_is_nodesc_array()
1373 as = is_classarray ? CLASS_DATA (sym)->as : sym->as; in gfc_is_nodesc_array()
1379 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.class_pointer) in gfc_is_nodesc_array()
2367 if ((sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.optional) in gfc_sym_type()
2477 && (!CLASS_DATA (from_cm)->attr.class_pointer || from_gsym)) in gfc_copy_dt_decls_ifequal()
2780 && (c->ts.type != BT_CLASS || (CLASS_DATA (c)->ts.u.derived in gfc_get_derived_type()
2781 && !gfc_compare_derived_types (derived, CLASS_DATA (c)->ts.u.derived)))) in gfc_get_derived_type()
3050 is_class = f->sym->ts.type == BT_CLASS && CLASS_DATA (f->sym) in create_fn_spec()
3052 is_pointer = is_class ? CLASS_DATA (f->sym)->attr.class_pointer in create_fn_spec()
3062 && (CLASS_DATA (f->sym)->ts.u.derived->attr.proc_pointer_comp in create_fn_spec()
[all …]
H A Dtrans-array.cc981 && CLASS_DATA (expr->symtree->n.sym)->attr.dimension) in gfc_get_array_span()
2832 ? &CLASS_DATA (expr)->ts : &expr->ts); in trans_array_constructor()
6456 as = IS_CLASS_ARRAY (sym) ? CLASS_DATA (sym)->as : sym->as; in gfc_trans_array_cobounds()
6499 as = IS_CLASS_ARRAY (sym) ? CLASS_DATA (sym)->as : sym->as; in gfc_trans_array_bounds()
6746 if ((sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.optional) in gfc_trans_g77_array()
6805 || (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->attr.class_pointer) in gfc_trans_dummy_array_bias()
6807 || (is_classarray && CLASS_DATA (sym)->attr.allocatable)) in gfc_trans_dummy_array_bias()
6834 as = IS_CLASS_ARRAY (sym) ? CLASS_DATA (sym)->as : sym->as; in gfc_trans_dummy_array_bias()
9125 || (c->ts.type == BT_CLASS && der_type == CLASS_DATA (c)->ts.u.derived); in structure_alloc_comps()
9150 attr = &CLASS_DATA (c)->attr; in structure_alloc_comps()
[all …]
H A Dgfortran.h3892 #define CLASS_DATA(sym) sym->ts.u.derived->components macro
3895 && CLASS_DATA (sym) \
3896 && CLASS_DATA (sym)->ts.u.derived \
3897 && CLASS_DATA (sym)->ts.u.derived->attr.unlimited_polymorphic)
3900 && CLASS_DATA (sym) \
3901 && CLASS_DATA (sym)->attr.dimension \
3902 && !CLASS_DATA (sym)->attr.class_pointer)
3904 (sym->ts.type == BT_CLASS && sym->attr.class_ok && CLASS_DATA (sym) \
3905 ? CLASS_DATA (sym)->attr.class_pointer : sym->attr.pointer)
H A Dparse.cc3234 && CLASS_DATA (c)->attr.allocatable) in check_component()
3245 && CLASS_DATA (c)->attr.class_pointer) in check_component()
3261 && CLASS_DATA (c)->attr.codimension)) in check_component()
3279 && CLASS_DATA (c)->ts.u.derived->from_intmod in check_component()
3281 && CLASS_DATA (c)->ts.u.derived->intmod_sym_id in check_component()
3296 && CLASS_DATA (c)->ts.u.derived->from_intmod in check_component()
3298 && CLASS_DATA (c)->ts.u.derived->intmod_sym_id in check_component()
4978 if (sym->ts.type == BT_CLASS && CLASS_DATA (sym)) in parse_associate()
4980 if ((!CLASS_DATA (sym)->as && rank != 0) in parse_associate()
4981 || (CLASS_DATA (sym)->as in parse_associate()
[all …]

123