Lines Matching refs:backend_decl
482 vtable = vtab->backend_decl; in gfc_reset_vptr()
843 tmp = e->symtree->n.sym->backend_decl; in class_scalar_coarray_to_class()
991 else if (e->ts.u.cl->backend_decl) in gfc_conv_intrinsic_to_class()
992 tmp = e->ts.u.cl->backend_decl; in gfc_conv_intrinsic_to_class()
1011 tmp = e->ts.u.cl->backend_decl; in gfc_conv_intrinsic_to_class()
1164 tmp = e->symtree->n.sym->backend_decl; in gfc_conv_class_to_class()
2045 e->ts.u.cl->backend_decl = tmpse.expr; in gfc_get_expr_charlen()
2053 length = e->symtree->n.sym->ts.u.cl->backend_decl; in gfc_get_expr_charlen()
2062 length = r->u.c.component->ts.u.cl->backend_decl; in gfc_get_expr_charlen()
2122 caf_decl = expr->symtree->n.sym->backend_decl == NULL_TREE in gfc_get_tree_for_caf_expr()
2124 : expr->symtree->n.sym->backend_decl; in gfc_get_tree_for_caf_expr()
2162 TREE_TYPE (comp->backend_decl), caf_decl, in gfc_get_tree_for_caf_expr()
2163 comp->backend_decl, NULL_TREE); in gfc_get_tree_for_caf_expr()
2449 if (!cl->length && cl->backend_decl && VAR_P (cl->backend_decl)) in gfc_conv_string_length()
2466 cl->backend_decl = convert (gfc_charlen_type_node, se.string_length); in gfc_conv_string_length()
2481 if (cl->backend_decl && VAR_P (cl->backend_decl)) in gfc_conv_string_length()
2482 gfc_add_modify (pblock, cl->backend_decl, se.expr); in gfc_conv_string_length()
2484 cl->backend_decl = gfc_evaluate_now (se.expr, pblock); in gfc_conv_string_length()
2631 if (c->backend_decl == NULL_TREE in gfc_conv_component_ref()
2635 field = c->backend_decl; in gfc_conv_component_ref()
2685 tmp = c->ts.u.cl->backend_decl; in gfc_conv_component_ref()
2732 if (dt->backend_decl == NULL) in conv_parent_component_references()
2923 && sym->ns->proc_name->backend_decl == parent_decl in gfc_conv_variable()
2936 && (sym->ns->proc_name->backend_decl == current_function_decl in gfc_conv_variable()
2950 && (sym->ns->proc_name->backend_decl == current_function_decl in gfc_conv_variable()
2983 if (sym->attr.entry && !sym->ts.u.cl->backend_decl) in gfc_conv_variable()
2984 se->string_length = sym->ns->proc_name->ts.u.cl->backend_decl; in gfc_conv_variable()
2986 se->string_length = sym->ts.u.cl->backend_decl; in gfc_conv_variable()
3889 if (sym->backend_decl) in gfc_conv_scalar_char_value()
3893 TREE_TYPE (sym->backend_decl) = unsigned_char_type_node; in gfc_conv_scalar_char_value()
3897 DECL_ARG_TYPE (sym->backend_decl) = unsigned_type_node; in gfc_conv_scalar_char_value()
3899 DECL_BY_REFERENCE (sym->backend_decl) = 0; in gfc_conv_scalar_char_value()
4149 if (!sym->backend_decl) in conv_function_val()
4150 sym->backend_decl = gfc_get_extern_function_decl (sym, actual_args); in conv_function_val()
4152 TREE_USED (sym->backend_decl) = 1; in conv_function_val()
4154 tmp = sym->backend_decl; in conv_function_val()
4373 new_sym->ts.u.cl->backend_decl = se->string_length; in gfc_add_interface_mapping()
4435 new_sym->backend_decl = value; in gfc_add_interface_mapping()
4454 && !sym->new_sym->n.sym->ts.u.cl->backend_decl) in gfc_finish_interface_mapping()
4465 sym->new_sym->n.sym->ts.u.cl->backend_decl = se.expr; in gfc_finish_interface_mapping()
4721 if (sym->new_sym->n.sym->backend_decl) in gfc_apply_interface_mapping_to_expr()
4864 if (expr->ts.type == BT_CHARACTER && !expr->ts.u.cl->backend_decl) in gfc_conv_subref_array_arg()
4876 ? expr->ts.u.cl->backend_decl in gfc_conv_subref_array_arg()
5022 rse.string_length = expr->ts.u.cl->backend_decl; in gfc_conv_subref_array_arg()
5052 parmse->string_length = expr->ts.u.cl->backend_decl; in gfc_conv_subref_array_arg()
6216 tmp = e->symtree->n.sym->backend_decl; in gfc_conv_procedure_call()
6217 e->symtree->n.sym->backend_decl in gfc_conv_procedure_call()
6224 e->symtree->n.sym->backend_decl = tmp; in gfc_conv_procedure_call()
6401 parmse.expr = e->symtree->n.sym->backend_decl; in gfc_conv_procedure_call()
6563 parmse.string_length = e->symtree->n.sym->ts.u.cl->backend_decl; in gfc_conv_procedure_call()
6904 cl.backend_decl = gfc_create_var (gfc_charlen_type_node, "slen"); in gfc_conv_procedure_call()
6906 cl.backend_decl = (*stringargs)[0]; in gfc_conv_procedure_call()
6912 cl.backend_decl = formal->sym->ts.u.cl->backend_decl; in gfc_conv_procedure_call()
6914 len = cl.backend_decl; in gfc_conv_procedure_call()
6936 cl.backend_decl = tmp; in gfc_conv_procedure_call()
6944 len = cl.backend_decl; in gfc_conv_procedure_call()
7164 TREE_TYPE (sym->backend_decl) in gfc_conv_procedure_call()
7166 TYPE_ARG_TYPES (TREE_TYPE (sym->backend_decl))); in gfc_conv_procedure_call()
7167 se->expr = gfc_build_addr_expr (NULL_TREE, sym->backend_decl); in gfc_conv_procedure_call()
7677 if (fsym->ts.u.cl->backend_decl == NULL_TREE) in gfc_conv_statement_function()
7678 fsym->ts.u.cl->backend_decl in gfc_conv_statement_function()
7728 sym->ts.u.cl->backend_decl)) in gfc_conv_statement_function()
7733 gfc_trans_string_copy (&se->pre, sym->ts.u.cl->backend_decl, tmp, in gfc_conv_statement_function()
7738 se->string_length = sym->ts.u.cl->backend_decl; in gfc_conv_statement_function()
7923 tree ctor = gfc_conv_string_init (ts->u.cl->backend_decl, expr); in gfc_conv_initializer()
8009 lse.string_length = cm->ts.u.cl->backend_decl; in gfc_trans_subarray_assign()
8079 TREE_TYPE(cm->backend_decl), in gfc_trans_alloc_subarray_assign()
8179 tmp = gfc_conv_descriptor_data_get (arg->symtree->n.sym->backend_decl); in gfc_trans_alloc_subarray_assign()
8220 if (!expr2->ts.u.cl->backend_decl) in alloc_scalar_allocatable_for_subcomponent_assignment()
8223 gcc_assert (expr2->ts.u.cl->backend_decl); in alloc_scalar_allocatable_for_subcomponent_assignment()
8226 size = expr2->ts.u.cl->backend_decl; in alloc_scalar_allocatable_for_subcomponent_assignment()
8235 strlen->backend_decl, NULL_TREE); in alloc_scalar_allocatable_for_subcomponent_assignment()
8438 gcc_assert (se.string_length || expr->ts.u.cl->backend_decl); in gfc_trans_subcomponent_assign()
8441 : expr->ts.u.cl->backend_decl); in gfc_trans_subcomponent_assign()
8524 tmp = build_int_cst (TREE_TYPE (cm->backend_decl), 0); in gfc_trans_subcomponent_assign()
8554 lse.string_length = cm->ts.u.cl->backend_decl; in gfc_trans_subcomponent_assign()
8593 if (!expr->ts.u.derived->backend_decl in gfc_trans_structure_assign()
8594 || !TYPE_FIELDS (expr->ts.u.derived->backend_decl)) in gfc_trans_structure_assign()
8625 field = cm->backend_decl; in gfc_trans_structure_assign()
8672 field = cm->backend_decl; in gfc_trans_structure_assign()
8710 tree union_type = TREE_TYPE (un->backend_decl); in gfc_conv_union_initializer()
8712 CONSTRUCTOR_APPEND_ELT (v, un->backend_decl, val); in gfc_conv_union_initializer()
8721 TREE_TYPE (un->backend_decl), in gfc_conv_union_initializer()
8724 CONSTRUCTOR_APPEND_ELT (v, un->backend_decl, val); in gfc_conv_union_initializer()
8778 CONSTRUCTOR_APPEND_ELT (v, cm->backend_decl, vtab); in gfc_conv_structure()
8783 CONSTRUCTOR_APPEND_ELT (v, cm->backend_decl, in gfc_conv_structure()
8784 fold_convert (TREE_TYPE (cm->backend_decl), in gfc_conv_structure()
8788 CONSTRUCTOR_APPEND_ELT (v, cm->backend_decl, in gfc_conv_structure()
8789 fold_convert (TREE_TYPE (cm->backend_decl), in gfc_conv_structure()
8796 TREE_TYPE (cm->backend_decl), in gfc_conv_structure()
8802 CONSTRUCTOR_APPEND_ELT (v, cm->backend_decl, val); in gfc_conv_structure()
9185 && DECL_P (re->symtree->n.sym->backend_decl) in trans_class_vptr_len_assignment()
9186 && DECL_LANG_SPECIFIC (re->symtree->n.sym->backend_decl) in trans_class_vptr_len_assignment()
9187 && GFC_DECL_SAVED_DESCRIPTOR (re->symtree->n.sym->backend_decl) in trans_class_vptr_len_assignment()
9189 re->symtree->n.sym->backend_decl)))) in trans_class_vptr_len_assignment()
9193 re->symtree->n.sym->backend_decl)); in trans_class_vptr_len_assignment()
9196 re->symtree->n.sym->backend_decl)); in trans_class_vptr_len_assignment()
9774 && expr1->symtree->n.sym->ts.u.cl->backend_decl in gfc_trans_pointer_assignment()
9775 && VAR_P (expr1->symtree->n.sym->ts.u.cl->backend_decl)) in gfc_trans_pointer_assignment()
9777 tmp = expr1->symtree->n.sym->ts.u.cl->backend_decl; in gfc_trans_pointer_assignment()