Lines Matching defs:backend_decl
318 if (lp->backend_decl)
319 return lp->backend_decl;
341 lp->backend_decl = label_decl;
643 && (sym->ns->proc_name->backend_decl == current_function_decl
867 backend_decl for a module symbol, if it all ready exists. If the
870 an existing backend_decl is found. */
927 if (gfc_fl_struct (s->attr.flavor) && !s->backend_decl)
930 s->backend_decl = gfc_get_union_type (s);
932 s->backend_decl = gfc_get_derived_type (s);
937 else if (s->backend_decl)
943 sym->ts.u.cl->backend_decl = s->ts.u.cl->backend_decl;
944 sym->backend_decl = s->backend_decl;
993 nest = (procns->proc_name->backend_decl != current_function_decl)
1038 DECL_CONTEXT (token) = sym->ns->proc_name->backend_decl;
1235 || INTEGER_CST_P (sym->ts.u.cl->backend_decl);
1290 DECL_ARTIFICIAL (sym->backend_decl) = 1;
1291 sym->backend_decl = NULL_TREE;
1329 if (sym->ns->proc_name->backend_decl == current_function_decl
1347 if (sym->ts.u.cl->backend_decl == NULL_TREE)
1386 sym->ts.u.cl->backend_decl = length;
1396 gcc_assert (sym->ts.u.cl->backend_decl != NULL_TREE);
1397 return sym->ts.u.cl->backend_decl;
1410 gcc_assert (sym->backend_decl);
1412 decl = sym->backend_decl;
1550 && sym->backend_decl));
1555 gcc_assert (sym->backend_decl && (sym->ts.type != BT_CHARACTER
1556 || sym->ts.u.cl->backend_decl));
1557 return sym->backend_decl;
1569 if (!c->ts.u.derived->backend_decl)
1599 && sym->ts.u.cl->backend_decl
1600 && TREE_CODE (sym->ts.u.cl->backend_decl) == PARM_DECL)
1602 sym->ts.u.cl->passed_length = sym->ts.u.cl->backend_decl;
1604 sym->ts.u.cl->backend_decl = build_fold_indirect_ref (sym->ts.u.cl->backend_decl);
1613 && !sym->backend_decl)
1615 sym->backend_decl =
1616 DECL_ARGUMENTS (sym->ns->proc_name->backend_decl);
1620 sym->backend_decl = DECL_CHAIN (sym->backend_decl);
1624 gcc_assert (sym->backend_decl);
1634 GFC_DECL_PTR_ARRAY_P (sym->backend_decl) = 1;
1642 (sym->ts.u.cl->passed_length == sym->ts.u.cl->backend_decl))
1643 sym->ts.u.cl->backend_decl = NULL_TREE;
1648 parameter at sym->ts.u.cl->backend_decl as a reference and
1654 if (sym->ts.u.cl->backend_decl
1655 && TREE_CODE (sym->ts.u.cl->backend_decl) == PARM_DECL)
1657 sym->ts.u.cl->passed_length = sym->ts.u.cl->backend_decl;
1658 sym->ts.u.cl->backend_decl =
1659 build_fold_indirect_ref (sym->ts.u.cl->backend_decl);
1667 && sym->ts.u.cl->backend_decl)
1669 sym->ts.u.cl->passed_length = sym->ts.u.cl->backend_decl;
1671 sym->ts.u.cl->backend_decl
1672 = build_fold_indirect_ref (sym->ts.u.cl->backend_decl);
1674 sym->ts.u.cl->backend_decl = NULL_TREE;
1678 if (sym->ts.u.cl->backend_decl == NULL_TREE)
1681 length = sym->ts.u.cl->backend_decl;
1687 if (sym->backend_decl == current_function_decl
1688 || (DECL_CONTEXT (sym->backend_decl)
1695 gcc_assert (sym->backend_decl == current_function_decl
1697 : (DECL_CONTEXT (sym->backend_decl)
1706 && !TREE_USED (sym->backend_decl))
1708 decl = gfc_build_dummy_array_decl (sym, sym->backend_decl);
1710 if (sym->backend_decl != NULL && decl != sym->backend_decl)
1711 DECL_ARTIFICIAL (sym->backend_decl) = 1;
1712 sym->backend_decl = decl;
1718 sym->backend_decl's GFC_DECL_SAVED_DESCRIPTOR. The caller is then
1722 && (!DECL_LANG_SPECIFIC (sym->backend_decl)
1723 || !GFC_DECL_SAVED_DESCRIPTOR (sym->backend_decl)))
1725 decl = gfc_build_dummy_array_decl (sym, sym->backend_decl);
1727 if (sym->backend_decl != NULL && decl != sym->backend_decl)
1728 DECL_ARTIFICIAL (sym->backend_decl) = 1;
1729 sym->backend_decl = decl;
1732 TREE_USED (sym->backend_decl) = 1;
1733 if (sym->attr.assign && GFC_DECL_ASSIGN (sym->backend_decl) == 0)
1736 if (sym->ts.type == BT_CLASS && sym->backend_decl)
1737 GFC_DECL_CLASS(sym->backend_decl) = 1;
1739 return sym->backend_decl;
1743 && GFC_DECL_ASSIGN (sym->backend_decl) == 0)
1746 if (sym->backend_decl)
1747 return sym->backend_decl;
1765 if (sym->ts.type == BT_CLASS && sym->backend_decl)
1766 GFC_DECL_CLASS(sym->backend_decl) = 1;
1767 return sym->backend_decl;
1783 if (!sym->backend_decl)
1785 decl = sym->backend_decl;
1805 sym->ts.u.cl->backend_decl = NULL_TREE;
1808 && sym->ts.u.cl->backend_decl
1809 && (VAR_P (sym->ts.u.cl->backend_decl)
1810 || TREE_CODE (sym->ts.u.cl->backend_decl) == PARM_DECL))
1880 && TREE_CODE (sym->ts.u.cl->backend_decl) != INDIRECT_REF)
1918 sym->backend_decl = decl;
1990 save->decl = sym->backend_decl;
1996 sym->backend_decl = decl;
2006 sym->backend_decl = save->decl;
2029 if (s && s->backend_decl)
2030 return s->backend_decl;
2034 decl = sym->backend_decl;
2051 && sym->ns->proc_name->backend_decl == current_function_decl)
2057 sym->backend_decl = decl;
2120 if (sym->backend_decl)
2121 return sym->backend_decl;
2132 return the backend_decl. If we are looking at a BIND(C)
2163 && !sym->backend_decl
2166 && (gsym->ns->proc_name->backend_decl || !sym->attr.intrinsic))
2168 if (!gsym->ns->proc_name->backend_decl)
2184 entry master. Find the entry and use its backend_decl.
2185 otherwise, use the proc_name backend_decl. */
2194 sym->backend_decl = entry->sym->backend_decl;
2200 sym->backend_decl = gsym->ns->proc_name->backend_decl;
2202 if (sym->backend_decl)
2209 return sym->backend_decl;
2214 return the backend_decl. */
2231 if (s && s->backend_decl)
2237 sym->ts.u.cl->backend_decl = s->ts.u.cl->backend_decl;
2238 sym->backend_decl = s->backend_decl;
2239 return sym->backend_decl;
2318 DECL_CONTEXT (fndecl) = sym->ns->proc_name->backend_decl;
2344 sym->backend_decl = fndecl;
2381 if (sym->backend_decl)
2498 sym->backend_decl = fndecl;
2516 fndecl = sym->backend_decl;
2560 sym->ts.u.cl->backend_decl = length;
2569 if (sym->ts.u.cl->backend_decl == NULL
2570 || sym->ts.u.cl->backend_decl == length)
2573 tree backend_decl;
2575 if (sym->ts.u.cl->backend_decl == NULL)
2583 sym->ts.u.cl->backend_decl = len;
2588 backend_decl = arg->backend_decl;
2591 arg->backend_decl = NULL;
2593 arg->backend_decl = backend_decl;
2680 gcc_assert (!f->sym->ts.u.cl->backend_decl);
2681 f->sym->ts.u.cl->backend_decl = length;
2686 if (f->sym->ts.u.cl->backend_decl == NULL
2687 || f->sym->ts.u.cl->backend_decl == length)
2690 f->sym->ts.u.cl->backend_decl
2692 else if (f->sym->ts.u.cl->backend_decl == NULL)
2786 f->sym->backend_decl = parm;
2801 gcc_assert (f->sym->backend_decl != NULL_TREE
2804 ? TREE_TYPE (CLASS_DATA (f->sym)->backend_decl)
2805 : TREE_TYPE (f->sym->backend_decl);
2816 gcc_assert (DECL_LANG_SPECIFIC (f->sym->backend_decl) == NULL
2817 || GFC_DECL_TOKEN (f->sym->backend_decl) == NULL_TREE);
2818 if (DECL_LANG_SPECIFIC (f->sym->backend_decl) == NULL)
2819 gfc_allocate_lang_decl (f->sym->backend_decl);
2820 GFC_DECL_TOKEN (f->sym->backend_decl) = token;
2845 gcc_assert (GFC_DECL_CAF_OFFSET (f->sym->backend_decl)
2847 GFC_DECL_CAF_OFFSET (f->sym->backend_decl) = offset;
2884 fndecl = sym->backend_decl;
2937 thunk_fndecl = thunk_sym->backend_decl;
2976 DECL_ARTIFICIAL (thunk_formal->sym->backend_decl) = 1;
2977 vec_safe_push (args, thunk_formal->sym->backend_decl);
2980 tmp = thunk_formal->sym->ts.u.cl->backend_decl;
2998 tmp = ns->proc_name->backend_decl;
3003 tree master_type = TREE_TYPE (ns->proc_name->backend_decl);
3077 formal->sym->backend_decl = NULL_TREE;
3079 formal->sym->ts.u.cl->backend_decl = NULL_TREE;
3085 thunk_sym->ts.u.cl->backend_decl = NULL_TREE;
3087 thunk_sym->result->ts.u.cl->backend_decl = NULL_TREE;
3147 && sym->ns->proc_name->backend_decl == this_function_decl
3206 if (sym->ts.u.cl->backend_decl == NULL_TREE)
3209 length = sym->ts.u.cl->backend_decl;
3218 if (sym->ns->proc_name->backend_decl == this_function_decl
3261 DECL_LANG_SPECIFIC (decl) = DECL_LANG_SPECIFIC (sym->backend_decl);
4108 gfc_finish_decl (cl->backend_decl);
4130 gcc_assert (sym->backend_decl);
4140 decl = sym->backend_decl;
4157 gcc_assert (sym->backend_decl);
4162 gfc_add_modify (&init, GFC_DECL_STRING_LEN (sym->backend_decl),
4247 tree type = TREE_TYPE (sym->backend_decl);
4346 f->sym->backend_decl,
4407 gfc_add_modify (init, sym->ts.u.cl->backend_decl,
4415 sym->ts.u.cl->backend_decl, tmp);
4433 sym->ts.u.cl->backend_decl);
4462 return sym->result->backend_decl;
4517 && VAR_P (proc_sym->ts.u.cl->backend_decl))
4539 gfc_add_modify (&init, proc_sym->ts.u.cl->backend_decl,
4554 tmp = proc_sym->ts.u.cl->backend_decl;
4564 proc_sym->ts.u.cl->backend_decl));
4571 else if (VAR_P (proc_sym->ts.u.cl->backend_decl))
4621 sym->backend_decl,
4627 sym->backend_decl,
4636 sym->backend_decl,
4654 tmp = gfc_class_data_get (sym->backend_decl);
4659 tmp = gfc_class_data_get (sym->backend_decl);
4669 tmp = gfc_class_data_get (sym->backend_decl);
4683 && GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (sym->backend_decl)))
4686 gfc_conv_descriptor_span_set (&tmpblock, sym->backend_decl,
4712 tmp = gfc_class_data_get (sym->backend_decl);
4718 DECL_INITIAL (sym->backend_decl)
4719 = gfc_class_set_static_fields (sym->backend_decl, vptr, tmp);
4720 TREE_CONSTANT (DECL_INITIAL (sym->backend_decl)) = 1;
4740 gfc_trans_dummy_array_bias (sym, sym->backend_decl, block);
4748 if (TREE_STATIC (sym->backend_decl))
4762 && TREE_STATIC (sym->backend_decl))
4765 gfc_trans_array_cobounds (TREE_TYPE (sym->backend_decl),
4793 gfc_trans_auto_array_allocation (sym->backend_decl,
4812 gfc_trans_dummy_array_bias (sym, sym->backend_decl, block);
5036 && f->sym->ts.u.cl->backend_decl)
5038 if (TREE_CODE (f->sym->ts.u.cl->backend_decl) == PARM_DECL)
5046 gcc_assert (proc_sym->ts.u.cl->backend_decl != NULL);
5047 if (TREE_CODE (proc_sym->ts.u.cl->backend_decl) == PARM_DECL)
5146 if (nml->sym->backend_decl == NULL_TREE)
5149 nml->sym->backend_decl = gfc_get_symbol_decl (nml->sym);
5151 DECL_IGNORED_P (nml->sym->backend_decl) = 0;
5152 CONSTRUCTOR_APPEND_ELT (nml_decls, NULL_TREE, nml->sym->backend_decl);
5179 sym->backend_decl = gfc_typenode_for_spec (&(sym->ts));
5182 && sym->backend_decl
5183 && TREE_CODE (sym->backend_decl) == RECORD_TYPE)
5185 decl = sym->backend_decl;
5191 || TYPE_CONTEXT (decl) == sym->ns->proc_name->backend_decl);
5194 == sym->ns->proc_name->backend_decl);
5196 TYPE_CONTEXT (decl) = sym->ns->proc_name->backend_decl;
5197 DECL_CONTEXT (TYPE_STUB_DECL (decl)) = sym->ns->proc_name->backend_decl;
5209 if ((sym->attr.in_common || sym->attr.in_equivalence) && sym->backend_decl)
5211 decl = sym->backend_decl;
5214 DECL_CONTEXT (decl) = sym->ns->proc_name->backend_decl;
5225 if (sym->backend_decl
5229 if (sym->backend_decl && !sym->attr.vtab && !sym->attr.target)
5257 DECL_CONTEXT (decl) = sym->ns->proc_name->backend_decl;
5266 length = sym->ts.u.cl->backend_decl;
5305 ns->proc_name->backend_decl,
5346 if (st->n.sym->backend_decl
5347 && DECL_P (st->n.sym->backend_decl)
5352 || !VAR_P (st->n.sym->backend_decl));
5353 decl = copy_node (st->n.sym->backend_decl);
5386 ns->proc_name->backend_decl,
5463 if (sym->backend_decl != NULL
5482 if (sym->ts.u.cl->backend_decl == NULL
5483 || TREE_CODE (sym->ts.u.cl->backend_decl) != INTEGER_CST)
5518 DECL_CONTEXT (decl) = sym->ns->proc_name->backend_decl;
5546 decl = sym->backend_decl;
5730 DECL_CONTEXT (decl) = sym->ns->proc_name->backend_decl;
5884 if (sym->backend_decl != NULL_TREE)
5885 suppress_warning (sym->backend_decl);
5894 if (sym->backend_decl != NULL_TREE)
5895 suppress_warning (sym->backend_decl);
5910 if (sym->backend_decl != NULL_TREE)
5911 suppress_warning (sym->backend_decl);
5928 if (sym->backend_decl != NULL_TREE)
5929 suppress_warning (sym->backend_decl);
5940 && sym->ts.u.cl->backend_decl != NULL
5941 && VAR_P (sym->ts.u.cl->backend_decl))
6023 if (sym->attr.value == 1 && sym->backend_decl != NULL
6029 gcc_assert (TREE_CODE (TREE_TYPE (sym->backend_decl)) == INTEGER_TYPE);
6030 gcc_assert (TYPE_UNSIGNED (TREE_TYPE (sym->backend_decl)) == 1);
6031 gcc_assert (TYPE_PRECISION (TREE_TYPE (sym->backend_decl)) == CHAR_TYPE_SIZE);
6032 gcc_assert (DECL_BY_REFERENCE (sym->backend_decl) == 0);
6048 if (sym->backend_decl != NULL_TREE)
6049 suppress_warning (sym->backend_decl);
6057 sym->backend_decl = gfc_typenode_for_spec (&(sym->ts));
6140 gcc_assert (cl->backend_decl != NULL_TREE);
6170 cl->passed_length, cl->backend_decl);
6202 cl->backend_decl));
6464 fndecl = sym->backend_decl;
6836 gfc_add_modify (&block, sym->ts.u.cl->backend_decl, tmp);
6840 && !INTEGER_CST_P (sym->ts.u.cl->backend_decl))
7261 sym->backend_decl,
7262 fold_convert (TREE_TYPE (sym->backend_decl),
7391 tmp = sym->ts.u.cl->backend_decl;
7395 sym->ts.u.cl->backend_decl, tmp);
7481 if (!sym->backend_decl)
7484 fndecl = sym->backend_decl;
7505 tree backend_decl;
7508 backend_decl = ns->proc_name->result->ts.u.cl->backend_decl;
7510 el->sym->result->ts.u.cl->backend_decl = backend_decl;
7534 gfc_conv_cfi_to_gfc (&init, &cleanup, fsym->backend_decl,
7541 and stored in sym->backend_decl
7543 -> PARM_DECL and before sym->backend_decl.
7548 fsym->ts.u.cl->backend_decl = gfc_create_var (gfc_array_index_type,
7550 else if (fsym->ts.type == BT_CHARACTER && !fsym->ts.u.cl->backend_decl)
7556 fsym->ts.u.cl->backend_decl = se.expr;
7560 tree tmp = fsym->backend_decl;
7561 fsym->backend_decl = NULL;
7593 fsym->backend_decl = desc_p;
7707 tmp = CLASS_DATA (sym)->backend_decl;
7746 suppress_warning (sym->backend_decl);
Indexes created Thu Jul 23 00:25:05 UTC 2026