Home
last modified time | relevance | path

Searched refs:class_ok (Results 1 – 25 of 33) sorted by relevance

12

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dparse.c2983 || (c->ts.type == BT_CLASS && c->attr.class_ok in check_component()
2994 || (c->ts.type == BT_CLASS && c->attr.class_ok in check_component()
3010 || (c->ts.type == BT_CLASS && c->attr.class_ok in check_component()
3028 || (c->ts.type == BT_CLASS && c->attr.class_ok in check_component()
3045 || (c->ts.type == BT_CLASS && c->attr.class_ok in check_component()
4755 attr.class_ok = 0; in parse_associate()
4762 sym->attr.class_ok = 1; in parse_associate()
4765 sym->attr.class_ok = 1; in parse_associate()
H A Dprimary.c2174 || (sym->ts.type == BT_CLASS && sym->attr.class_ok in gfc_match_varspec()
2535 else if (component->ts.type == BT_CLASS && component->attr.class_ok in gfc_match_varspec()
2665 if (sym->ts.type == BT_CLASS && sym->attr.class_ok && sym->ts.u.derived) in gfc_variable_attr()
2850 if (sym->ts.type == BT_CLASS && sym->attr.class_ok) in caf_variable_attr()
3748 if (sym->ts.type == BT_CLASS && sym->attr.class_ok in gfc_match_rvalue()
3827 if (sym->ts.type == BT_CLASS && sym->attr.class_ok in gfc_match_rvalue()
H A Dresolve.c220 sym->attr.class_ok = ifc->result->attr.class_ok; in resolve_procedure_interface()
230 sym->attr.class_ok = ifc->attr.class_ok; in resolve_procedure_interface()
336 as = sym->ts.type == BT_CLASS && sym->attr.class_ok in gfc_resolve_formal_arglist()
363 || (sym->ts.type == BT_CLASS && sym->attr.class_ok in gfc_resolve_formal_arglist()
2101 || (sym->ts.type == BT_CLASS && sym->attr.class_ok in resolve_actual_arglist()
5612 else if (((sym->ts.type == BT_CLASS && sym->attr.class_ok in resolve_variable()
5660 if (((sym->ts.type == BT_CLASS && sym->attr.class_ok in resolve_variable()
6341 if (base->ts.type == BT_CLASS && !gfc_expr_attr (base).class_ok) in check_typebound_baseobject()
9113 attr.class_ok = 0; in resolve_assoc_var()
9176 if (sym->ts.type == BT_CLASS && gfc_expr_attr (target).class_ok) in resolve_assoc_var()
[all …]
H A Dinterface.c2176 if (actual->ts.type == BT_CLASS && !attr.class_ok) in compare_allocatable()
2407 if (actual->ts.type == BT_CLASS && !actual_attr.class_ok) in compare_parameter()
2451 if (formal->ts.type == BT_CLASS && formal->attr.class_ok in compare_parameter()
2493 if (formal->ts.type == BT_CLASS && formal->attr.class_ok) in compare_parameter()
3442 if (((f->sym->ts.type == BT_CLASS && f->sym->attr.class_ok in gfc_compare_actual_formal()
3782 if ((f->sym->ts.type == BT_CLASS && f->sym->attr.class_ok in check_intents()
3804 if ((f->sym->ts.type == BT_CLASS && f->sym->attr.class_ok in check_intents()
4234 || !gfc_expr_attr (base->expr).class_ok) in matching_typebound_op()
H A Dmatch.c4350 if (sym && sym->ts.type == BT_CLASS && sym->attr.class_ok) in gfc_match_allocate()
6279 if (selector->ts.type == BT_CLASS && !selector->attr.class_ok) in select_intrinsic_set_tmp()
6351 if (selector->ts.type == BT_CLASS && selector->attr.class_ok in select_type_set_tmp()
6445 sym->attr.class_ok = 1; in gfc_match_select_type()
6564 sym->attr.class_ok = 0; in select_rank_set_tmp()
6683 sym->attr.class_ok = 1; in gfc_match_select_rank()
6697 sym->attr.class_ok = sym2->attr.class_ok; in gfc_match_select_rank()
H A Dclass.c647 if (attr->class_ok) in gfc_build_class_symbol()
651 attr->class_ok = attr->dummy || attr->pointer || attr->allocatable in gfc_build_class_symbol()
654 if (!attr->class_ok) in gfc_build_class_symbol()
H A Dexpr.c4365 if (sym->ts.type == BT_CLASS && sym->attr.class_ok) in gfc_check_pointer_assign()
5757 if (sym->ts.type == BT_CLASS && sym->attr.class_ok) in gfc_is_coarray()
5767 if (comp->ts.type == BT_CLASS && comp->attr.class_ok in gfc_is_coarray()
6280 ptr_component = (comp->ts.type == BT_CLASS && comp->attr.class_ok) in gfc_check_vardef_context()
H A Dsymbol.c2219 (*dsym)->attr.class_ok = sym->attr.class_ok; in gfc_copy_dummy_sym()
H A Dsimplify.c3064 if ((a->ts.type == BT_CLASS && !gfc_expr_attr (a).class_ok) in gfc_simplify_extends_type_of()
3065 || (mold->ts.type == BT_CLASS && !gfc_expr_attr (mold).class_ok)) in gfc_simplify_extends_type_of()
3108 if (((a->ts.type == BT_CLASS && gfc_expr_attr (a).class_ok) in gfc_simplify_same_type_as()
3109 || (b->ts.type == BT_CLASS && gfc_expr_attr (b).class_ok)) in gfc_simplify_same_type_as()
H A Dcheck.c692 if (e->ts.type == BT_CLASS && gfc_expr_attr (e).class_ok in coarray_check()
734 if (e->rank != 0 && e->ts.type == BT_CLASS && gfc_expr_attr (e).class_ok in array_check()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dprimary.cc2153 || (sym->ts.type == BT_CLASS && sym->attr.class_ok in gfc_match_varspec()
2523 else if (component->ts.type == BT_CLASS && component->attr.class_ok in gfc_match_varspec()
2654 if (sym->ts.type == BT_CLASS && sym->attr.class_ok && sym->ts.u.derived) in gfc_variable_attr()
2858 if (sym->ts.type == BT_CLASS && sym->attr.class_ok) in caf_variable_attr()
3756 if (sym->ts.type == BT_CLASS && sym->attr.class_ok in gfc_match_rvalue()
3835 if (sym->ts.type == BT_CLASS && sym->attr.class_ok in gfc_match_rvalue()
H A Dresolve.cc220 sym->attr.class_ok = ifc->result->attr.class_ok; in resolve_procedure_interface()
230 sym->attr.class_ok = ifc->attr.class_ok; in resolve_procedure_interface()
336 as = sym->ts.type == BT_CLASS && sym->attr.class_ok in gfc_resolve_formal_arglist()
363 || (sym->ts.type == BT_CLASS && sym->attr.class_ok in gfc_resolve_formal_arglist()
2142 || (sym->ts.type == BT_CLASS && sym->attr.class_ok in resolve_actual_arglist()
5697 else if (((sym->ts.type == BT_CLASS && sym->attr.class_ok in resolve_variable()
5745 if (((sym->ts.type == BT_CLASS && sym->attr.class_ok in resolve_variable()
6463 if (base->ts.type == BT_CLASS && !gfc_expr_attr (base).class_ok) in check_typebound_baseobject()
9251 attr.class_ok = 0; in resolve_assoc_var()
9314 if (sym->ts.type == BT_CLASS && gfc_expr_attr (target).class_ok) in resolve_assoc_var()
[all …]
H A Dparse.cc3233 || (c->ts.type == BT_CLASS && c->attr.class_ok in check_component()
3244 || (c->ts.type == BT_CLASS && c->attr.class_ok in check_component()
3260 || (c->ts.type == BT_CLASS && c->attr.class_ok in check_component()
3278 || (c->ts.type == BT_CLASS && c->attr.class_ok in check_component()
3295 || (c->ts.type == BT_CLASS && c->attr.class_ok in check_component()
5005 attr.class_ok = 0; in parse_associate()
5012 sym->attr.class_ok = 1; in parse_associate()
5015 sym->attr.class_ok = 1; in parse_associate()
H A Dmatch.cc4391 if (sym && sym->ts.type == BT_CLASS && sym->attr.class_ok) in gfc_match_allocate()
6370 if (selector->ts.type == BT_CLASS && !selector->attr.class_ok) in select_intrinsic_set_tmp()
6442 if (selector->ts.type == BT_CLASS && selector->attr.class_ok in select_type_set_tmp()
6536 sym->attr.class_ok = 1; in gfc_match_select_type()
6655 sym->attr.class_ok = 0; in select_rank_set_tmp()
6774 sym->attr.class_ok = 1; in gfc_match_select_rank()
6788 sym->attr.class_ok = sym2->attr.class_ok; in gfc_match_select_rank()
H A Dinterface.cc2196 if (actual->ts.type == BT_CLASS && !attr.class_ok) in compare_allocatable()
2457 if (actual->ts.type == BT_CLASS && !actual_attr.class_ok) in compare_parameter()
2516 if (formal->ts.type == BT_CLASS && formal->attr.class_ok in compare_parameter()
2558 if (formal->ts.type == BT_CLASS && formal->attr.class_ok) in compare_parameter()
3624 if (((f->sym->ts.type == BT_CLASS && f->sym->attr.class_ok in gfc_compare_actual_formal()
3985 if ((f->sym->ts.type == BT_CLASS && f->sym->attr.class_ok in check_intents()
4007 if ((f->sym->ts.type == BT_CLASS && f->sym->attr.class_ok in check_intents()
4437 || !gfc_expr_attr (base->expr).class_ok) in matching_typebound_op()
H A DChangeLog-201130 (select_type_set_tmp, ): Ditto; avoid segfault if !class_ok.
31 * primary.c (gfc_match_rvalue): Avoid segfault if !class_ok.
1489 * module.c (mio_symbol): Set 'class_ok' attribute.
2334 * module.c (mio_component): Make sure the 'class_ok' attribute is set
2336 * parse.c (parse_derived): Check for 'class_ok' attribute.
3559 * class.c (gfc_build_class_symbol): Set 'class_ok' attribute.
3560 * decl.c (build_sym,attr_decl1): Move setting of 'class_ok' into
3563 * interface.c (matching_typebound_op): Check for 'class_ok' attribute.
3564 * match.c (select_type_set_tmp): Move setting of 'class_ok' into
3566 * primary.c (gfc_variable_attr): Check for 'class_ok' attribute.
H A Dclass.cc651 if (attr->class_ok in gfc_build_class_symbol()
657 if (attr->class_ok) in gfc_build_class_symbol()
666 attr->class_ok = attr->dummy || attr->pointer || attr->allocatable in gfc_build_class_symbol()
669 if (!attr->class_ok) in gfc_build_class_symbol()
H A Dexpr.cc4397 if (sym->ts.type == BT_CLASS && sym->attr.class_ok) in gfc_check_pointer_assign()
5019 return comp->ts.type == BT_CLASS && comp->attr.class_ok && CLASS_DATA (comp) in class_allocatable()
5026 return comp->ts.type == BT_CLASS && comp->attr.class_ok && CLASS_DATA (comp) in class_pointer()
5797 if (sym->ts.type == BT_CLASS && sym->attr.class_ok) in gfc_is_coarray()
5807 if (comp->ts.type == BT_CLASS && comp->attr.class_ok in gfc_is_coarray()
6336 ptr_component = (comp->ts.type == BT_CLASS && comp->attr.class_ok) in gfc_check_vardef_context()
H A DChangeLog-2012582 * resolve.c (resolve_fl_derived0): Correctly copy the 'class_ok'
615 * interface.c (matching_typebound_op): Check for 'class_ok' attribute.
1025 * resolve.c (check_typebound_baseobject): Check for class_ok attribute.
1026 (resolve_procedure_interface,resolve_fl_derived0): Copy class_ok
2461 * resolve.c (symbol_as): Check also for attr.class_ok.
2628 'class_ok' but, instead for the class structure components.
H A Dgfortran.h889 unsigned class_ok:1; /* is a CLASS object with correct attributes. */ member
3904 (sym->ts.type == BT_CLASS && sym->attr.class_ok && CLASS_DATA (sym) \
H A DChangeLog-201351 * primary.c (gfc_match_varspec): Check for 'class_ok'.
628 * interface.c (compare_parameter): Check for class_ok.
1831 If the target class_ok is set, set it for the associate
H A Dsymbol.cc2226 (*dsym)->attr.class_ok = sym->attr.class_ok; in gfc_copy_dummy_sym()
H A DChangeLog-2009534 * gfortran.h : Add class_ok bitfield to symbol_attr.
535 * decl.c (build_sym): Set attr.class_ok if dummy, pointer or
541 * match.c (gfc_match_select_type): Set attr.class_ok for an
544 is dummy, pointer or allocatable by testing the class_ok and
H A Dsimplify.cc3097 if ((a->ts.type == BT_CLASS && !gfc_expr_attr (a).class_ok) in gfc_simplify_extends_type_of()
3098 || (mold->ts.type == BT_CLASS && !gfc_expr_attr (mold).class_ok)) in gfc_simplify_extends_type_of()
3141 if (((a->ts.type == BT_CLASS && gfc_expr_attr (a).class_ok) in gfc_simplify_same_type_as()
3142 || (b->ts.type == BT_CLASS && gfc_expr_attr (b).class_ok)) in gfc_simplify_same_type_as()
H A Dcheck.cc692 if (e->ts.type == BT_CLASS && gfc_expr_attr (e).class_ok in coarray_check()
734 if (e->rank != 0 && e->ts.type == BT_CLASS && gfc_expr_attr (e).class_ok in array_check()

12