Lines Matching refs:backend_decl
321 if (lp->backend_decl) in gfc_get_label_decl()
322 return lp->backend_decl; in gfc_get_label_decl()
344 lp->backend_decl = label_decl; in gfc_get_label_decl()
641 && (sym->ns->proc_name->backend_decl == current_function_decl in gfc_finish_var_decl()
922 if (gfc_fl_struct (s->attr.flavor) && !s->backend_decl) in gfc_get_module_backend_decl()
925 s->backend_decl = gfc_get_union_type (s); in gfc_get_module_backend_decl()
927 s->backend_decl = gfc_get_derived_type (s); in gfc_get_module_backend_decl()
932 else if (s->backend_decl) in gfc_get_module_backend_decl()
938 sym->ts.u.cl->backend_decl = s->ts.u.cl->backend_decl; in gfc_get_module_backend_decl()
939 sym->backend_decl = s->backend_decl; in gfc_get_module_backend_decl()
988 nest = (procns->proc_name->backend_decl != current_function_decl) in gfc_build_qualified_array()
1033 DECL_CONTEXT (token) = sym->ns->proc_name->backend_decl; in gfc_build_qualified_array()
1230 || INTEGER_CST_P (sym->ts.u.cl->backend_decl); in gfc_build_dummy_array_decl()
1285 DECL_ARTIFICIAL (sym->backend_decl) = 1; in gfc_build_dummy_array_decl()
1286 sym->backend_decl = NULL_TREE; in gfc_build_dummy_array_decl()
1323 if (sym->ns->proc_name->backend_decl == current_function_decl in gfc_build_dummy_array_decl()
1341 if (sym->ts.u.cl->backend_decl == NULL_TREE) in gfc_create_string_length()
1380 sym->ts.u.cl->backend_decl = length; in gfc_create_string_length()
1390 gcc_assert (sym->ts.u.cl->backend_decl != NULL_TREE); in gfc_create_string_length()
1391 return sym->ts.u.cl->backend_decl; in gfc_create_string_length()
1404 gcc_assert (sym->backend_decl); in gfc_add_assign_aux_vars()
1406 decl = sym->backend_decl; in gfc_add_assign_aux_vars()
1516 && sym->backend_decl)); in gfc_get_symbol_decl()
1527 if (!c->ts.u.derived->backend_decl) in gfc_get_symbol_decl()
1557 && sym->ts.u.cl->backend_decl in gfc_get_symbol_decl()
1558 && TREE_CODE (sym->ts.u.cl->backend_decl) == PARM_DECL) in gfc_get_symbol_decl()
1560 sym->ts.u.cl->passed_length = sym->ts.u.cl->backend_decl; in gfc_get_symbol_decl()
1562 sym->ts.u.cl->backend_decl = build_fold_indirect_ref (sym->ts.u.cl->backend_decl); in gfc_get_symbol_decl()
1574 && !sym->backend_decl) in gfc_get_symbol_decl()
1576 sym->backend_decl = in gfc_get_symbol_decl()
1577 DECL_ARGUMENTS (sym->ns->proc_name->backend_decl); in gfc_get_symbol_decl()
1581 sym->backend_decl = DECL_CHAIN (sym->backend_decl); in gfc_get_symbol_decl()
1585 gcc_assert (sym->backend_decl); in gfc_get_symbol_decl()
1595 GFC_DECL_PTR_ARRAY_P (sym->backend_decl) = 1; in gfc_get_symbol_decl()
1603 (sym->ts.u.cl->passed_length == sym->ts.u.cl->backend_decl)) in gfc_get_symbol_decl()
1604 sym->ts.u.cl->backend_decl = NULL_TREE; in gfc_get_symbol_decl()
1615 if (sym->ts.u.cl->backend_decl in gfc_get_symbol_decl()
1616 && TREE_CODE (sym->ts.u.cl->backend_decl) == PARM_DECL) in gfc_get_symbol_decl()
1618 sym->ts.u.cl->passed_length = sym->ts.u.cl->backend_decl; in gfc_get_symbol_decl()
1619 sym->ts.u.cl->backend_decl = in gfc_get_symbol_decl()
1620 build_fold_indirect_ref (sym->ts.u.cl->backend_decl); in gfc_get_symbol_decl()
1628 && sym->ts.u.cl->backend_decl) in gfc_get_symbol_decl()
1630 sym->ts.u.cl->passed_length = sym->ts.u.cl->backend_decl; in gfc_get_symbol_decl()
1632 sym->ts.u.cl->backend_decl in gfc_get_symbol_decl()
1633 = build_fold_indirect_ref (sym->ts.u.cl->backend_decl); in gfc_get_symbol_decl()
1635 sym->ts.u.cl->backend_decl = NULL_TREE; in gfc_get_symbol_decl()
1639 if (sym->ts.u.cl->backend_decl == NULL_TREE) in gfc_get_symbol_decl()
1642 length = sym->ts.u.cl->backend_decl; in gfc_get_symbol_decl()
1648 if (sym->backend_decl == current_function_decl in gfc_get_symbol_decl()
1649 || (DECL_CONTEXT (sym->backend_decl) in gfc_get_symbol_decl()
1656 gcc_assert (sym->backend_decl == current_function_decl in gfc_get_symbol_decl()
1658 : (DECL_CONTEXT (sym->backend_decl) in gfc_get_symbol_decl()
1667 && !TREE_USED (sym->backend_decl)) in gfc_get_symbol_decl()
1669 decl = gfc_build_dummy_array_decl (sym, sym->backend_decl); in gfc_get_symbol_decl()
1671 if (sym->backend_decl != NULL && decl != sym->backend_decl) in gfc_get_symbol_decl()
1672 DECL_ARTIFICIAL (sym->backend_decl) = 1; in gfc_get_symbol_decl()
1673 sym->backend_decl = decl; in gfc_get_symbol_decl()
1683 && (!DECL_LANG_SPECIFIC (sym->backend_decl) in gfc_get_symbol_decl()
1684 || !GFC_DECL_SAVED_DESCRIPTOR (sym->backend_decl))) in gfc_get_symbol_decl()
1686 decl = gfc_build_dummy_array_decl (sym, sym->backend_decl); in gfc_get_symbol_decl()
1688 if (sym->backend_decl != NULL && decl != sym->backend_decl) in gfc_get_symbol_decl()
1689 DECL_ARTIFICIAL (sym->backend_decl) = 1; in gfc_get_symbol_decl()
1690 sym->backend_decl = decl; in gfc_get_symbol_decl()
1693 TREE_USED (sym->backend_decl) = 1; in gfc_get_symbol_decl()
1694 if (sym->attr.assign && GFC_DECL_ASSIGN (sym->backend_decl) == 0) in gfc_get_symbol_decl()
1697 if (sym->ts.type == BT_CLASS && sym->backend_decl) in gfc_get_symbol_decl()
1698 GFC_DECL_CLASS(sym->backend_decl) = 1; in gfc_get_symbol_decl()
1700 return sym->backend_decl; in gfc_get_symbol_decl()
1704 && GFC_DECL_ASSIGN (sym->backend_decl) == 0) in gfc_get_symbol_decl()
1707 if (sym->backend_decl) in gfc_get_symbol_decl()
1708 return sym->backend_decl; in gfc_get_symbol_decl()
1726 if (sym->ts.type == BT_CLASS && sym->backend_decl) in gfc_get_symbol_decl()
1727 GFC_DECL_CLASS(sym->backend_decl) = 1; in gfc_get_symbol_decl()
1728 return sym->backend_decl; in gfc_get_symbol_decl()
1744 if (!sym->backend_decl) in gfc_get_symbol_decl()
1746 decl = sym->backend_decl; in gfc_get_symbol_decl()
1766 sym->ts.u.cl->backend_decl = NULL_TREE; in gfc_get_symbol_decl()
1769 && sym->ts.u.cl->backend_decl in gfc_get_symbol_decl()
1770 && (VAR_P (sym->ts.u.cl->backend_decl) in gfc_get_symbol_decl()
1771 || TREE_CODE (sym->ts.u.cl->backend_decl) == PARM_DECL)) in gfc_get_symbol_decl()
1841 && TREE_CODE (sym->ts.u.cl->backend_decl) != INDIRECT_REF) in gfc_get_symbol_decl()
1879 sym->backend_decl = decl; in gfc_get_symbol_decl()
1951 save->decl = sym->backend_decl; in gfc_shadow_sym()
1957 sym->backend_decl = decl; in gfc_shadow_sym()
1967 sym->backend_decl = save->decl; in gfc_restore_sym()
1990 if (s && s->backend_decl) in get_proc_pointer_decl()
1991 return s->backend_decl; in get_proc_pointer_decl()
1995 decl = sym->backend_decl; in get_proc_pointer_decl()
2012 && sym->ns->proc_name->backend_decl == current_function_decl) in get_proc_pointer_decl()
2018 sym->backend_decl = decl; in get_proc_pointer_decl()
2080 if (sym->backend_decl) in gfc_get_extern_function_decl()
2081 return sym->backend_decl; in gfc_get_extern_function_decl()
2123 && !sym->backend_decl in gfc_get_extern_function_decl()
2126 && (gsym->ns->proc_name->backend_decl || !sym->attr.intrinsic)) in gfc_get_extern_function_decl()
2128 if (!gsym->ns->proc_name->backend_decl) in gfc_get_extern_function_decl()
2154 sym->backend_decl = entry->sym->backend_decl; in gfc_get_extern_function_decl()
2160 sym->backend_decl = gsym->ns->proc_name->backend_decl; in gfc_get_extern_function_decl()
2162 if (sym->backend_decl) in gfc_get_extern_function_decl()
2169 return sym->backend_decl; in gfc_get_extern_function_decl()
2191 if (s && s->backend_decl) in gfc_get_extern_function_decl()
2197 sym->ts.u.cl->backend_decl = s->ts.u.cl->backend_decl; in gfc_get_extern_function_decl()
2198 sym->backend_decl = s->backend_decl; in gfc_get_extern_function_decl()
2199 return sym->backend_decl; in gfc_get_extern_function_decl()
2298 DECL_CONTEXT (fndecl) = sym->ns->proc_name->backend_decl; in gfc_get_extern_function_decl()
2324 sym->backend_decl = fndecl; in gfc_get_extern_function_decl()
2357 if (sym->backend_decl) in build_function_decl()
2474 sym->backend_decl = fndecl; in build_function_decl()
2492 fndecl = sym->backend_decl; in create_function_arglist()
2536 sym->ts.u.cl->backend_decl = length; in create_function_arglist()
2545 if (sym->ts.u.cl->backend_decl == NULL in create_function_arglist()
2546 || sym->ts.u.cl->backend_decl == length) in create_function_arglist()
2549 tree backend_decl; in create_function_arglist() local
2551 if (sym->ts.u.cl->backend_decl == NULL) in create_function_arglist()
2559 sym->ts.u.cl->backend_decl = len; in create_function_arglist()
2564 backend_decl = arg->backend_decl; in create_function_arglist()
2567 arg->backend_decl = NULL; in create_function_arglist()
2569 arg->backend_decl = backend_decl; in create_function_arglist()
2656 gcc_assert (!f->sym->ts.u.cl->backend_decl); in create_function_arglist()
2657 f->sym->ts.u.cl->backend_decl = length; in create_function_arglist()
2662 if (f->sym->ts.u.cl->backend_decl == NULL in create_function_arglist()
2663 || f->sym->ts.u.cl->backend_decl == length) in create_function_arglist()
2666 f->sym->ts.u.cl->backend_decl in create_function_arglist()
2668 else if (f->sym->ts.u.cl->backend_decl == NULL) in create_function_arglist()
2752 f->sym->backend_decl = parm; in create_function_arglist()
2767 gcc_assert (f->sym->backend_decl != NULL_TREE in create_function_arglist()
2770 ? TREE_TYPE (CLASS_DATA (f->sym)->backend_decl) in create_function_arglist()
2771 : TREE_TYPE (f->sym->backend_decl); in create_function_arglist()
2782 gcc_assert (DECL_LANG_SPECIFIC (f->sym->backend_decl) == NULL in create_function_arglist()
2783 || GFC_DECL_TOKEN (f->sym->backend_decl) == NULL_TREE); in create_function_arglist()
2784 if (DECL_LANG_SPECIFIC (f->sym->backend_decl) == NULL) in create_function_arglist()
2785 gfc_allocate_lang_decl (f->sym->backend_decl); in create_function_arglist()
2786 GFC_DECL_TOKEN (f->sym->backend_decl) = token; in create_function_arglist()
2811 gcc_assert (GFC_DECL_CAF_OFFSET (f->sym->backend_decl) in create_function_arglist()
2813 GFC_DECL_CAF_OFFSET (f->sym->backend_decl) = offset; in create_function_arglist()
2850 fndecl = sym->backend_decl; in trans_function_start()
2903 thunk_fndecl = thunk_sym->backend_decl; in build_entry_thunks()
2942 DECL_ARTIFICIAL (thunk_formal->sym->backend_decl) = 1; in build_entry_thunks()
2943 vec_safe_push (args, thunk_formal->sym->backend_decl); in build_entry_thunks()
2946 tmp = thunk_formal->sym->ts.u.cl->backend_decl; in build_entry_thunks()
2964 tmp = ns->proc_name->backend_decl; in build_entry_thunks()
2969 tree master_type = TREE_TYPE (ns->proc_name->backend_decl); in build_entry_thunks()
3043 formal->sym->backend_decl = NULL_TREE; in build_entry_thunks()
3045 formal->sym->ts.u.cl->backend_decl = NULL_TREE; in build_entry_thunks()
3051 thunk_sym->ts.u.cl->backend_decl = NULL_TREE; in build_entry_thunks()
3053 thunk_sym->result->ts.u.cl->backend_decl = NULL_TREE; in build_entry_thunks()
3107 && sym->ns->proc_name->backend_decl == this_function_decl in gfc_get_fake_result_decl()
3166 if (sym->ts.u.cl->backend_decl == NULL_TREE) in gfc_get_fake_result_decl()
3169 length = sym->ts.u.cl->backend_decl; in gfc_get_fake_result_decl()
3178 if (sym->ns->proc_name->backend_decl == this_function_decl in gfc_get_fake_result_decl()
3221 DECL_LANG_SPECIFIC (decl) = DECL_LANG_SPECIFIC (sym->backend_decl); in gfc_get_fake_result_decl()
4074 gfc_finish_decl (cl->backend_decl); in gfc_trans_dummy_character()
4096 gcc_assert (sym->backend_decl); in gfc_trans_auto_character_variable()
4106 decl = sym->backend_decl; in gfc_trans_auto_character_variable()
4123 gcc_assert (sym->backend_decl); in gfc_trans_assign_aux_var()
4128 gfc_add_modify (&init, GFC_DECL_STRING_LEN (sym->backend_decl), in gfc_trans_assign_aux_var()
4213 tree type = TREE_TYPE (sym->backend_decl); in gfc_trans_vla_type_sizes()
4312 f->sym->backend_decl, in init_intent_out_dt()
4373 gfc_add_modify (init, sym->ts.u.cl->backend_decl, in gfc_null_and_pass_deferred_len()
4381 sym->ts.u.cl->backend_decl, tmp); in gfc_null_and_pass_deferred_len()
4399 sym->ts.u.cl->backend_decl); in gfc_null_and_pass_deferred_len()
4433 if (DECL_LANG_SPECIFIC (sym->backend_decl)) in convert_CFI_desc()
4434 CFI_desc = GFC_DECL_SAVED_DESCRIPTOR (sym->backend_decl); in convert_CFI_desc()
4435 else if (GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (TREE_TYPE (sym->backend_decl)))) in convert_CFI_desc()
4436 CFI_desc = sym->backend_decl; in convert_CFI_desc()
4479 && sym->ts.u.cl->backend_decl in convert_CFI_desc()
4480 && VAR_P (sym->ts.u.cl->backend_decl)) in convert_CFI_desc()
4484 gfc_add_modify (&tmpblock, sym->ts.u.cl->backend_decl, in convert_CFI_desc()
4485 fold_convert (TREE_TYPE (sym->ts.u.cl->backend_decl), in convert_CFI_desc()
4531 return sym->result->backend_decl; in get_proc_result()
4586 && VAR_P (proc_sym->ts.u.cl->backend_decl)) in gfc_trans_deferred_vars()
4608 gfc_add_modify (&init, proc_sym->ts.u.cl->backend_decl, in gfc_trans_deferred_vars()
4623 tmp = proc_sym->ts.u.cl->backend_decl; in gfc_trans_deferred_vars()
4633 proc_sym->ts.u.cl->backend_decl)); in gfc_trans_deferred_vars()
4640 else if (VAR_P (proc_sym->ts.u.cl->backend_decl)) in gfc_trans_deferred_vars()
4690 sym->backend_decl, in gfc_trans_deferred_vars()
4696 sym->backend_decl, in gfc_trans_deferred_vars()
4705 sym->backend_decl, in gfc_trans_deferred_vars()
4723 tmp = gfc_class_data_get (sym->backend_decl); in gfc_trans_deferred_vars()
4728 tmp = gfc_class_data_get (sym->backend_decl); in gfc_trans_deferred_vars()
4738 tmp = gfc_class_data_get (sym->backend_decl); in gfc_trans_deferred_vars()
4752 && GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (sym->backend_decl))) in gfc_trans_deferred_vars()
4755 gfc_conv_descriptor_span_set (&tmpblock, sym->backend_decl, in gfc_trans_deferred_vars()
4781 tmp = gfc_class_data_get (sym->backend_decl); in gfc_trans_deferred_vars()
4787 DECL_INITIAL (sym->backend_decl) in gfc_trans_deferred_vars()
4788 = gfc_class_set_static_fields (sym->backend_decl, vptr, tmp); in gfc_trans_deferred_vars()
4789 TREE_CONSTANT (DECL_INITIAL (sym->backend_decl)) = 1; in gfc_trans_deferred_vars()
4809 gfc_trans_dummy_array_bias (sym, sym->backend_decl, block); in gfc_trans_deferred_vars()
4817 if (TREE_STATIC (sym->backend_decl)) in gfc_trans_deferred_vars()
4831 && TREE_STATIC (sym->backend_decl)) in gfc_trans_deferred_vars()
4834 gfc_trans_array_cobounds (TREE_TYPE (sym->backend_decl), in gfc_trans_deferred_vars()
4862 gfc_trans_auto_array_allocation (sym->backend_decl, in gfc_trans_deferred_vars()
4881 gfc_trans_dummy_array_bias (sym, sym->backend_decl, block); in gfc_trans_deferred_vars()
5108 && f->sym->ts.u.cl->backend_decl) in gfc_trans_deferred_vars()
5110 if (TREE_CODE (f->sym->ts.u.cl->backend_decl) == PARM_DECL) in gfc_trans_deferred_vars()
5118 gcc_assert (proc_sym->ts.u.cl->backend_decl != NULL); in gfc_trans_deferred_vars()
5119 if (TREE_CODE (proc_sym->ts.u.cl->backend_decl) == PARM_DECL) in gfc_trans_deferred_vars()
5218 if (nml->sym->backend_decl == NULL_TREE) in generate_namelist_decl()
5221 nml->sym->backend_decl = gfc_get_symbol_decl (nml->sym); in generate_namelist_decl()
5223 DECL_IGNORED_P (nml->sym->backend_decl) = 0; in generate_namelist_decl()
5224 CONSTRUCTOR_APPEND_ELT (nml_decls, NULL_TREE, nml->sym->backend_decl); in generate_namelist_decl()
5251 sym->backend_decl = gfc_typenode_for_spec (&(sym->ts)); in gfc_create_module_variable()
5254 && sym->backend_decl in gfc_create_module_variable()
5255 && TREE_CODE (sym->backend_decl) == RECORD_TYPE) in gfc_create_module_variable()
5257 decl = sym->backend_decl; in gfc_create_module_variable()
5263 || TYPE_CONTEXT (decl) == sym->ns->proc_name->backend_decl); in gfc_create_module_variable()
5266 == sym->ns->proc_name->backend_decl); in gfc_create_module_variable()
5268 TYPE_CONTEXT (decl) = sym->ns->proc_name->backend_decl; in gfc_create_module_variable()
5269 DECL_CONTEXT (TYPE_STUB_DECL (decl)) = sym->ns->proc_name->backend_decl; in gfc_create_module_variable()
5281 if ((sym->attr.in_common || sym->attr.in_equivalence) && sym->backend_decl) in gfc_create_module_variable()
5283 decl = sym->backend_decl; in gfc_create_module_variable()
5286 DECL_CONTEXT (decl) = sym->ns->proc_name->backend_decl; in gfc_create_module_variable()
5297 if (sym->backend_decl in gfc_create_module_variable()
5301 if (sym->backend_decl && !sym->attr.vtab && !sym->attr.target) in gfc_create_module_variable()
5328 DECL_CONTEXT (decl) = sym->ns->proc_name->backend_decl; in gfc_create_module_variable()
5337 length = sym->ts.u.cl->backend_decl; in gfc_create_module_variable()
5376 ns->proc_name->backend_decl, in gfc_trans_use_stmts()
5417 if (st->n.sym->backend_decl in gfc_trans_use_stmts()
5418 && DECL_P (st->n.sym->backend_decl) in gfc_trans_use_stmts()
5423 || !VAR_P (st->n.sym->backend_decl)); in gfc_trans_use_stmts()
5424 decl = copy_node (st->n.sym->backend_decl); in gfc_trans_use_stmts()
5457 ns->proc_name->backend_decl, in gfc_trans_use_stmts()
5534 if (sym->backend_decl != NULL in gfc_emit_parameter_debug_info()
5553 if (sym->ts.u.cl->backend_decl == NULL in gfc_emit_parameter_debug_info()
5554 || TREE_CODE (sym->ts.u.cl->backend_decl) != INTEGER_CST) in gfc_emit_parameter_debug_info()
5589 DECL_CONTEXT (decl) = sym->ns->proc_name->backend_decl; in gfc_emit_parameter_debug_info()
5617 decl = sym->backend_decl; in generate_coarray_sym_init()
5801 DECL_CONTEXT (decl) = sym->ns->proc_name->backend_decl; in create_module_nml_decl()
5955 if (sym->backend_decl != NULL_TREE) in generate_local_decl()
5956 TREE_NO_WARNING(sym->backend_decl) = 1; in generate_local_decl()
5965 if (sym->backend_decl != NULL_TREE) in generate_local_decl()
5966 TREE_NO_WARNING(sym->backend_decl) = 1; in generate_local_decl()
5981 if (sym->backend_decl != NULL_TREE) in generate_local_decl()
5982 TREE_NO_WARNING(sym->backend_decl) = 1; in generate_local_decl()
5999 if (sym->backend_decl != NULL_TREE) in generate_local_decl()
6000 TREE_NO_WARNING(sym->backend_decl) = 1; in generate_local_decl()
6011 && sym->ts.u.cl->backend_decl != NULL in generate_local_decl()
6012 && VAR_P (sym->ts.u.cl->backend_decl)) in generate_local_decl()
6096 if (sym->attr.value == 1 && sym->backend_decl != NULL in generate_local_decl()
6114 if (sym->backend_decl != NULL_TREE) in generate_local_decl()
6115 TREE_NO_WARNING (sym->backend_decl) = 1; in generate_local_decl()
6123 sym->backend_decl = gfc_typenode_for_spec (&(sym->ts)); in generate_local_decl()
6206 gcc_assert (cl->backend_decl != NULL_TREE); in add_argument_checking()
6236 cl->passed_length, cl->backend_decl); in add_argument_checking()
6268 cl->backend_decl)); in add_argument_checking()
6530 fndecl = sym->backend_decl; in gfc_generate_return()
6758 if (!sym->backend_decl) in gfc_generate_function_code()
6761 fndecl = sym->backend_decl; in gfc_generate_function_code()
6780 tree backend_decl; in gfc_generate_function_code() local
6783 backend_decl = ns->proc_name->result->ts.u.cl->backend_decl; in gfc_generate_function_code()
6785 el->sym->result->ts.u.cl->backend_decl = backend_decl; in gfc_generate_function_code()
6907 tmp = CLASS_DATA (sym)->backend_decl; in gfc_generate_function_code()
6946 TREE_NO_WARNING(sym->backend_decl) = 1; in gfc_generate_function_code()