Home
last modified time | relevance | path

Searched refs:BT_CLASS (Results 1 – 25 of 112) sorted by relevance

12345

/netbsd/external/gpl3/gcc/dist/gcc/fortran/
H A Dinterface.c774 as1 = (s1->ts.type == BT_CLASS in compare_rank()
777 as2 = (s2->ts.type == BT_CLASS in compare_rank()
2457 if (actual->ts.type != BT_CLASS) in compare_parameter()
2630 && ((formal->ts.type == BT_CLASS in compare_parameter()
3164 && a->expr->ts.type != BT_CLASS in gfc_compare_actual_formal()
3181 || (f->sym->ts.type == BT_CLASS in gfc_compare_actual_formal()
3412 if (f->sym->ts.type == BT_CLASS in gfc_compare_actual_formal()
3816 if (expr->ts.type == BT_CLASS && f->sym->ts.type == BT_CLASS in check_intents()
4231 if (base->expr->ts.type == BT_CLASS) in matching_typebound_op()
5104 BT_DERIVED : BT_CLASS; in check_dtio_interface1()
[all …]
H A Dinterface.cc785 as1 = (s1->ts.type == BT_CLASS in compare_rank()
788 as2 = (s2->ts.type == BT_CLASS in compare_rank()
2677 && ((formal->ts.type == BT_CLASS in compare_parameter()
3230 && a->expr->ts.type != BT_CLASS in gfc_compare_actual_formal()
3247 || (f->sym->ts.type == BT_CLASS in gfc_compare_actual_formal()
3482 && (a->expr->ts.type == BT_CLASS in gfc_compare_actual_formal()
3574 if (f->sym->ts.type == BT_CLASS in gfc_compare_actual_formal()
3724 || (f->sym->ts.type == BT_CLASS in gfc_compare_actual_formal()
4001 if (expr->ts.type == BT_CLASS && f->sym->ts.type == BT_CLASS in check_intents()
5289 BT_DERIVED : BT_CLASS; in check_dtio_interface1()
[all …]
H A Dtrans-expr.cc1303 if (class_ts.type == BT_CLASS in gfc_conv_class_to_class()
2039 || (sym->ts.type == BT_CLASS in gfc_conv_expr_present()
2258 if (comp->ts.type == BT_CLASS) in gfc_get_tree_for_caf_expr()
2910 && (sym->ts.type != BT_CLASS in gfc_maybe_dereference_var()
5644 case BT_CLASS: in gfc_conv_gfc_desc_to_cfi_desc()
6136 && e->ts.type == BT_CLASS in gfc_conv_procedure_call()
6297 if (fsym && fsym->ts.type == BT_CLASS && e->ts.type == BT_CLASS) in gfc_conv_procedure_call()
6533 && e->ts.type != BT_CLASS in gfc_conv_procedure_call()
6546 if (e->ts.type == BT_CLASS in gfc_conv_procedure_call()
6615 && e->ts.type == BT_CLASS in gfc_conv_procedure_call()
[all …]
H A Dprimary.cc2106 && sym->ts.type != BT_CLASS in gfc_match_varspec()
2137 else if (sym->ts.type == BT_CLASS in gfc_match_varspec()
2204 && primary->ts.type != BT_CLASS in gfc_match_varspec()
2462 if (primary->ts.type == BT_CLASS in gfc_match_varspec()
2533 || component->ts.type == BT_CLASS)) in gfc_match_varspec()
2722 if (comp->ts.type == BT_CLASS) in gfc_variable_attr()
2780 if (sym->ts.type == BT_CLASS) in gfc_expr_attr()
2789 && e->ts.type == BT_CLASS) in gfc_expr_attr()
2894 if (comp->ts.type == BT_CLASS) in caf_variable_attr()
2959 if (sym->ts.type == BT_CLASS) in gfc_caf_attr()
[all …]
H A Dtrans-expr.c1209 if (class_ts.type == BT_CLASS in gfc_conv_class_to_class()
1945 || (sym->ts.type == BT_CLASS in gfc_conv_expr_present()
2164 if (comp->ts.type == BT_CLASS) in gfc_get_tree_for_caf_expr()
2810 && (sym->ts.type != BT_CLASS in gfc_maybe_dereference_var()
5710 && e->ts.type == BT_CLASS in gfc_conv_procedure_call()
5865 if (fsym && fsym->ts.type == BT_CLASS && e->ts.type == BT_CLASS) in gfc_conv_procedure_call()
6103 && e->ts.type != BT_CLASS in gfc_conv_procedure_call()
6116 if (e->ts.type == BT_CLASS in gfc_conv_procedure_call()
6184 && e->ts.type == BT_CLASS in gfc_conv_procedure_call()
7910 case BT_CLASS: in gfc_conv_initializer()
[all …]
H A Dprimary.c2127 && sym->ts.type != BT_CLASS in gfc_match_varspec()
2158 else if (sym->ts.type == BT_CLASS in gfc_match_varspec()
2225 && primary->ts.type != BT_CLASS in gfc_match_varspec()
2483 if (primary->ts.type == BT_CLASS in gfc_match_varspec()
2554 || component->ts.type == BT_CLASS)) in gfc_match_varspec()
2739 if (comp->ts.type == BT_CLASS) in gfc_variable_attr()
2793 if (sym->ts.type == BT_CLASS) in gfc_expr_attr()
2802 && e->ts.type == BT_CLASS) in gfc_expr_attr()
2907 if (comp->ts.type == BT_CLASS) in caf_variable_attr()
2972 if (sym->ts.type == BT_CLASS) in gfc_caf_attr()
[all …]
H A Dresolve.cc348 && ((sym->ts.type != BT_CLASS in gfc_resolve_formal_arglist()
1331 if (comp->ts.type == BT_CLASS in resolve_structure_cons()
7597 if (sym->ts.type == BT_CLASS) in resolve_deallocate_expr()
7620 if (c->ts.type == BT_CLASS) in resolve_deallocate_expr()
7911 if (c->ts.type == BT_CLASS) in resolve_allocate_expr()
9233 if (ts->type == BT_CLASS) in resolve_assoc_var()
9247 sym->ts.type = BT_CLASS; in resolve_assoc_var()
9331 if (sym1->ts.type == BT_CLASS) in fixup_array_ref()
11229 if (lhs->ts.type == BT_CLASS && rhs->ts.type != BT_CLASS) in resolve_ordinary_assign()
14623 if (c->ts.type == BT_CLASS) in resolve_component()
[all …]
H A Dresolve.c348 && ((sym->ts.type != BT_CLASS in gfc_resolve_formal_arglist()
1303 if (comp->ts.type == BT_CLASS in resolve_structure_cons()
7477 if (sym->ts.type == BT_CLASS) in resolve_deallocate_expr()
7500 if (c->ts.type == BT_CLASS) in resolve_deallocate_expr()
7791 if (c->ts.type == BT_CLASS) in resolve_allocate_expr()
9097 if (ts->type == BT_CLASS) in resolve_assoc_var()
9111 sym->ts.type = BT_CLASS; in resolve_assoc_var()
9195 if (sym1->ts.type == BT_CLASS) in fixup_array_ref()
11069 if (lhs->ts.type == BT_CLASS && rhs->ts.type != BT_CLASS) in resolve_ordinary_assign()
14410 if (c->ts.type == BT_CLASS) in resolve_component()
[all …]
H A Dtrans-array.c8980 if (c->ts.type == BT_CLASS) in structure_alloc_comps()
9094 if (c->ts.type == BT_CLASS) in structure_alloc_comps()
9205 c->ts.type == BT_CLASS in structure_alloc_comps()
9327 if (c->ts.type == BT_CLASS in structure_alloc_comps()
9423 c->ts.type == BT_CLASS in structure_alloc_comps()
9450 || (c->ts.type == BT_CLASS in structure_alloc_comps()
9715 if (c->ts.type == BT_CLASS) in structure_alloc_comps()
9838 if (c->ts.type == BT_CLASS) in structure_alloc_comps()
9882 if (c->ts.type == BT_CLASS) in structure_alloc_comps()
10181 if (sym->ts.type == BT_CLASS in gfc_is_reallocatable_lhs()
[all …]
H A Dtrans-array.cc3014 == BT_CLASS in gfc_scalar_elemental_arg_saved_as_reference()
9145 if (c->ts.type == BT_CLASS) in structure_alloc_comps()
9283 if (c->ts.type == BT_CLASS) in structure_alloc_comps()
9394 c->ts.type == BT_CLASS in structure_alloc_comps()
9516 if (c->ts.type == BT_CLASS in structure_alloc_comps()
9612 c->ts.type == BT_CLASS in structure_alloc_comps()
9639 || (c->ts.type == BT_CLASS in structure_alloc_comps()
9913 if (c->ts.type == BT_CLASS) in structure_alloc_comps()
10036 if (c->ts.type == BT_CLASS) in structure_alloc_comps()
10080 if (c->ts.type == BT_CLASS) in structure_alloc_comps()
[all …]
H A Dtrans-decl.c724 || (sym->ts.type == BT_CLASS in gfc_finish_var_decl()
1524 if (sym->ts.type == BT_CLASS) in gfc_get_symbol_decl()
1876 if (sym->ts.type == BT_CLASS) in gfc_get_symbol_decl()
1898 && !(sym->ts.type == BT_CLASS in gfc_get_symbol_decl()
4761 if (sym->ts.type == BT_CLASS in gfc_trans_deferred_vars()
4906 && (sym->ts.type == BT_CLASS in gfc_trans_deferred_vars()
4912 || (sym->ts.type == BT_CLASS in gfc_trans_deferred_vars()
4935 if (sym->ts.type == BT_CLASS) in gfc_trans_deferred_vars()
4939 if (sym->ts.type != BT_CLASS in gfc_trans_deferred_vars()
4997 if (sym->ts.type == BT_CLASS in gfc_trans_deferred_vars()
[all …]
H A Dmatch.c5716 if (sym->ts.type == BT_CLASS in gfc_match_equivalence()
6175 if (selector->ts.type == BT_CLASS in copy_ts_from_selector_to_associate()
6301 if (selector->ts.type == BT_CLASS in select_intrinsic_set_tmp()
6342 if (ts->type == BT_CLASS) in select_type_set_tmp()
6380 if (ts->type == BT_CLASS) in select_type_set_tmp()
6472 && expr1->ts.type == BT_CLASS in gfc_match_select_type()
6532 if (ts->type == BT_CLASS) in select_rank_set_tmp()
6609 if (ts->type == BT_CLASS) in select_rank_set_tmp()
6664 as = (sym2->ts.type == BT_CLASS in gfc_match_select_rank()
6718 as = (sym->ts.type == BT_CLASS in gfc_match_select_rank()
[all …]
H A Dmatch.cc1328 && lvalue->ts.type == BT_CLASS) in gfc_match_assignment()
5785 if (sym->ts.type == BT_CLASS in gfc_match_equivalence()
6266 if (selector->ts.type == BT_CLASS in copy_ts_from_selector_to_associate()
6433 if (ts->type == BT_CLASS) in select_type_set_tmp()
6471 if (ts->type == BT_CLASS) in select_type_set_tmp()
6563 && expr1->ts.type == BT_CLASS in gfc_match_select_type()
6623 if (ts->type == BT_CLASS) in select_rank_set_tmp()
6700 if (ts->type == BT_CLASS) in select_rank_set_tmp()
6755 as = (sym2->ts.type == BT_CLASS in gfc_match_select_rank()
6809 as = (sym->ts.type == BT_CLASS in gfc_match_select_rank()
[all …]
H A Dexpr.c341 case BT_CLASS: in gfc_copy_expr()
1150 && ref->u.c.component->ts.type != BT_CLASS in is_subref_array()
1163 if (sym->ts.type == BT_CLASS in is_subref_array()
4979 return comp->ts.type == BT_CLASS && CLASS_DATA (comp) in class_allocatable()
4986 return comp->ts.type == BT_CLASS && CLASS_DATA (comp) in class_pointer()
5200 e->rank = var->n.sym->ts.type == BT_CLASS in gfc_get_variable_expr()
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()
5855 if (e->ts.type == BT_CLASS) in gfc_has_ultimate_allocatable()
5885 if (e->ts.type == BT_CLASS) in gfc_has_ultimate_pointer()
[all …]
H A Dexpr.cc342 case BT_CLASS: in gfc_copy_expr()
1160 && ref->u.c.component->ts.type != BT_CLASS in is_subref_array()
1173 if (sym->ts.type == BT_CLASS in is_subref_array()
5231 e->rank = var->n.sym->ts.type == BT_CLASS in gfc_get_variable_expr()
5788 if (sym->ts.type == BT_CLASS && sym->attr.class_ok) in gfc_is_coarray()
5798 if (comp->ts.type == BT_CLASS && comp->attr.class_ok in gfc_is_coarray()
5879 if (last && last->u.c.component->ts.type == BT_CLASS) in gfc_has_ultimate_allocatable()
5886 if (e->ts.type == BT_CLASS) in gfc_has_ultimate_allocatable()
5909 if (last && last->u.c.component->ts.type == BT_CLASS) in gfc_has_ultimate_pointer()
5916 if (e->ts.type == BT_CLASS) in gfc_has_ultimate_pointer()
[all …]
H A Dtrans-io.c1677 if (ts->type != BT_CLASS) in transfer_namelist_element()
1693 if (ts->type == BT_CLASS) in transfer_namelist_element()
1716 if (ts->type==BT_CLASS) in transfer_namelist_element()
2232 if (ts->type == BT_CLASS) in get_dtio_proc()
2239 if (ts->type == BT_CLASS && tb_io_st) in get_dtio_proc()
2409 case BT_CLASS: in transfer_expr()
2435 || (ts->type == BT_CLASS in transfer_expr()
2573 if (expr->ts.type == BT_CLASS) in gfc_trans_transfer()
2598 if (expr->ts.type != BT_CLASS in gfc_trans_transfer()
2605 || expr->ts.type == BT_CLASS) in gfc_trans_transfer()
[all …]
/netbsd/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dinterface.c774 as1 = (s1->ts.type == BT_CLASS in compare_rank()
777 as2 = (s2->ts.type == BT_CLASS in compare_rank()
2457 if (actual->ts.type != BT_CLASS) in compare_parameter()
2630 && ((formal->ts.type == BT_CLASS in compare_parameter()
3164 && a->expr->ts.type != BT_CLASS in gfc_compare_actual_formal()
3181 || (f->sym->ts.type == BT_CLASS in gfc_compare_actual_formal()
3412 if (f->sym->ts.type == BT_CLASS in gfc_compare_actual_formal()
3816 if (expr->ts.type == BT_CLASS && f->sym->ts.type == BT_CLASS in check_intents()
4231 if (base->expr->ts.type == BT_CLASS) in matching_typebound_op()
5104 BT_DERIVED : BT_CLASS; in check_dtio_interface1()
[all …]
H A Dtrans-expr.c1209 if (class_ts.type == BT_CLASS in gfc_conv_class_to_class()
1945 || (sym->ts.type == BT_CLASS in gfc_conv_expr_present()
2164 if (comp->ts.type == BT_CLASS) in gfc_get_tree_for_caf_expr()
2810 && (sym->ts.type != BT_CLASS in gfc_maybe_dereference_var()
5710 && e->ts.type == BT_CLASS in gfc_conv_procedure_call()
5865 if (fsym && fsym->ts.type == BT_CLASS && e->ts.type == BT_CLASS) in gfc_conv_procedure_call()
6103 && e->ts.type != BT_CLASS in gfc_conv_procedure_call()
6116 if (e->ts.type == BT_CLASS in gfc_conv_procedure_call()
6184 && e->ts.type == BT_CLASS in gfc_conv_procedure_call()
7910 case BT_CLASS: in gfc_conv_initializer()
[all …]
H A Dprimary.c2127 && sym->ts.type != BT_CLASS in gfc_match_varspec()
2158 else if (sym->ts.type == BT_CLASS in gfc_match_varspec()
2225 && primary->ts.type != BT_CLASS in gfc_match_varspec()
2483 if (primary->ts.type == BT_CLASS in gfc_match_varspec()
2554 || component->ts.type == BT_CLASS)) in gfc_match_varspec()
2739 if (comp->ts.type == BT_CLASS) in gfc_variable_attr()
2793 if (sym->ts.type == BT_CLASS) in gfc_expr_attr()
2802 && e->ts.type == BT_CLASS) in gfc_expr_attr()
2907 if (comp->ts.type == BT_CLASS) in caf_variable_attr()
2972 if (sym->ts.type == BT_CLASS) in gfc_caf_attr()
[all …]
H A Dresolve.c348 && ((sym->ts.type != BT_CLASS in gfc_resolve_formal_arglist()
1303 if (comp->ts.type == BT_CLASS in resolve_structure_cons()
7477 if (sym->ts.type == BT_CLASS) in resolve_deallocate_expr()
7500 if (c->ts.type == BT_CLASS) in resolve_deallocate_expr()
7791 if (c->ts.type == BT_CLASS) in resolve_allocate_expr()
9097 if (ts->type == BT_CLASS) in resolve_assoc_var()
9111 sym->ts.type = BT_CLASS; in resolve_assoc_var()
9195 if (sym1->ts.type == BT_CLASS) in fixup_array_ref()
11069 if (lhs->ts.type == BT_CLASS && rhs->ts.type != BT_CLASS) in resolve_ordinary_assign()
14410 if (c->ts.type == BT_CLASS) in resolve_component()
[all …]
H A Dtrans-array.c8980 if (c->ts.type == BT_CLASS) in structure_alloc_comps()
9094 if (c->ts.type == BT_CLASS) in structure_alloc_comps()
9205 c->ts.type == BT_CLASS in structure_alloc_comps()
9327 if (c->ts.type == BT_CLASS in structure_alloc_comps()
9423 c->ts.type == BT_CLASS in structure_alloc_comps()
9450 || (c->ts.type == BT_CLASS in structure_alloc_comps()
9715 if (c->ts.type == BT_CLASS) in structure_alloc_comps()
9838 if (c->ts.type == BT_CLASS) in structure_alloc_comps()
9882 if (c->ts.type == BT_CLASS) in structure_alloc_comps()
10181 if (sym->ts.type == BT_CLASS in gfc_is_reallocatable_lhs()
[all …]
H A Dtrans-decl.c724 || (sym->ts.type == BT_CLASS in gfc_finish_var_decl()
1524 if (sym->ts.type == BT_CLASS) in gfc_get_symbol_decl()
1876 if (sym->ts.type == BT_CLASS) in gfc_get_symbol_decl()
1898 && !(sym->ts.type == BT_CLASS in gfc_get_symbol_decl()
4761 if (sym->ts.type == BT_CLASS in gfc_trans_deferred_vars()
4906 && (sym->ts.type == BT_CLASS in gfc_trans_deferred_vars()
4912 || (sym->ts.type == BT_CLASS in gfc_trans_deferred_vars()
4935 if (sym->ts.type == BT_CLASS) in gfc_trans_deferred_vars()
4939 if (sym->ts.type != BT_CLASS in gfc_trans_deferred_vars()
4997 if (sym->ts.type == BT_CLASS in gfc_trans_deferred_vars()
[all …]
H A Dmatch.c5716 if (sym->ts.type == BT_CLASS in gfc_match_equivalence()
6175 if (selector->ts.type == BT_CLASS in copy_ts_from_selector_to_associate()
6301 if (selector->ts.type == BT_CLASS in select_intrinsic_set_tmp()
6342 if (ts->type == BT_CLASS) in select_type_set_tmp()
6380 if (ts->type == BT_CLASS) in select_type_set_tmp()
6472 && expr1->ts.type == BT_CLASS in gfc_match_select_type()
6532 if (ts->type == BT_CLASS) in select_rank_set_tmp()
6609 if (ts->type == BT_CLASS) in select_rank_set_tmp()
6664 as = (sym2->ts.type == BT_CLASS in gfc_match_select_rank()
6718 as = (sym->ts.type == BT_CLASS in gfc_match_select_rank()
[all …]
H A Dexpr.c341 case BT_CLASS: in gfc_copy_expr()
1150 && ref->u.c.component->ts.type != BT_CLASS in is_subref_array()
1163 if (sym->ts.type == BT_CLASS in is_subref_array()
4979 return comp->ts.type == BT_CLASS && CLASS_DATA (comp) in class_allocatable()
4986 return comp->ts.type == BT_CLASS && CLASS_DATA (comp) in class_pointer()
5200 e->rank = var->n.sym->ts.type == BT_CLASS in gfc_get_variable_expr()
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()
5855 if (e->ts.type == BT_CLASS) in gfc_has_ultimate_allocatable()
5885 if (e->ts.type == BT_CLASS) in gfc_has_ultimate_pointer()
[all …]
H A Dtrans-io.c1677 if (ts->type != BT_CLASS) in transfer_namelist_element()
1693 if (ts->type == BT_CLASS) in transfer_namelist_element()
1716 if (ts->type==BT_CLASS) in transfer_namelist_element()
2232 if (ts->type == BT_CLASS) in get_dtio_proc()
2239 if (ts->type == BT_CLASS && tb_io_st) in get_dtio_proc()
2409 case BT_CLASS: in transfer_expr()
2435 || (ts->type == BT_CLASS in transfer_expr()
2573 if (expr->ts.type == BT_CLASS) in gfc_trans_transfer()
2598 if (expr->ts.type != BT_CLASS in gfc_trans_transfer()
2605 || expr->ts.type == BT_CLASS) in gfc_trans_transfer()
[all …]

12345