Lines Matching refs:backend_decl
881 tmp = expr->symtree->n.sym->backend_decl; in get_CFI_desc()
883 tmp = sym->backend_decl; in get_CFI_desc()
926 tmp = gfc_class_vptr_get (expr->symtree->n.sym->backend_decl); in gfc_get_array_span()
961 gcc_assert (TREE_STATIC (sym->backend_decl)); in gfc_trans_static_array_pointer()
963 type = TREE_TYPE (sym->backend_decl); in gfc_trans_static_array_pointer()
964 DECL_INITIAL (sym->backend_decl) = gfc_build_null_descriptor (type); in gfc_trans_static_array_pointer()
1306 vptr = vtab->backend_decl; in get_class_info_from_ss()
2223 (*clp)->backend_decl = len; in store_backend_decl()
2243 *len = e->ts.u.cl->backend_decl; in get_array_ctor_all_strlen()
2324 if (!ts->u.cl->backend_decl) in get_array_ctor_var_strlen()
2333 ts->u.cl->backend_decl = se.string_length; in get_array_ctor_var_strlen()
2336 *len = ts->u.cl->backend_decl; in get_array_ctor_var_strlen()
3548 && expr->symtree->n.sym->backend_decl == current_function_decl) in build_class_array_ref()
3581 decl = expr->symtree->n.sym->backend_decl; in build_class_array_ref()
3937 decl = sym->backend_decl; in gfc_conv_array_ref()
5609 && VAR_P (expr->ts.u.cl->backend_decl)) in gfc_array_init_size()
6049 && expr->ts.u.cl->backend_decl != se->string_length in gfc_array_allocate()
6050 && VAR_P (expr->ts.u.cl->backend_decl)) in gfc_array_allocate()
6051 gfc_add_modify (&se->pre, expr->ts.u.cl->backend_decl, in gfc_array_allocate()
6052 fold_convert (TREE_TYPE (expr->ts.u.cl->backend_decl), in gfc_array_allocate()
6482 && onstack && !INTEGER_CST_P (sym->ts.u.cl->backend_decl)) in gfc_trans_auto_array_allocation()
6507 && !INTEGER_CST_P (sym->ts.u.cl->backend_decl)) in gfc_trans_auto_array_allocation()
6594 parm = sym->backend_decl; in gfc_trans_g77_array()
6601 && VAR_P (sym->ts.u.cl->backend_decl)) in gfc_trans_g77_array()
6720 && VAR_P (sym->ts.u.cl->backend_decl)) in gfc_trans_dummy_array_bias()
7061 field = ref->u.c.component->backend_decl; in gfc_get_dataptr_offset()
7170 if (!expr->ts.u.cl->backend_decl) in get_array_charlen()
7198 if (!expr->ts.u.cl->backend_decl || !VAR_P (expr->ts.u.cl->backend_decl)) in get_array_charlen()
7201 expr->ts.u.cl->backend_decl = in get_array_charlen()
7205 gfc_add_modify (&se->pre, expr->ts.u.cl->backend_decl, in get_array_charlen()
7213 e->ts.u.cl->backend_decl = expr->ts.u.cl->backend_decl; in get_array_charlen()
7224 expr->ts.u.cl->backend_decl in get_array_charlen()
7225 = expr->value.op.op1->ts.u.cl->backend_decl; in get_array_charlen()
7229 expr->ts.u.cl->backend_decl = in get_array_charlen()
7240 gfc_add_modify (&se->pre, expr->ts.u.cl->backend_decl, in get_array_charlen()
7243 expr->value.op.op1->ts.u.cl->backend_decl, in get_array_charlen()
7244 expr->value.op.op2->ts.u.cl->backend_decl)); in get_array_charlen()
7247 gfc_add_modify (&se->pre, expr->ts.u.cl->backend_decl, in get_array_charlen()
7248 expr->value.op.op1->ts.u.cl->backend_decl); in get_array_charlen()
7286 expr->ts.u.cl->backend_decl = tse.expr; in get_array_charlen()
7610 && (!expr->ts.u.cl->backend_decl || expr->expr_type == EXPR_ARRAY)) in gfc_conv_expr_descriptor()
7616 ? expr->ts.u.cl->backend_decl in gfc_conv_expr_descriptor()
7739 && expr->ts.u.cl->backend_decl == se->string_length) in gfc_conv_expr_descriptor()
7744 if (expr->ts.deferred && VAR_P (expr->ts.u.cl->backend_decl)) in gfc_conv_expr_descriptor()
7745 gfc_add_modify (&se->pre, expr->ts.u.cl->backend_decl, tmp); in gfc_conv_expr_descriptor()
7747 expr->ts.u.cl->backend_decl = tmp; in gfc_conv_expr_descriptor()
8020 DECL_LANG_SPECIFIC (expr->symtree->n.sym->backend_decl) ? in gfc_conv_expr_descriptor()
8021 GFC_DECL_SAVED_DESCRIPTOR (expr->symtree->n.sym->backend_decl) in gfc_conv_expr_descriptor()
8022 : expr->symtree->n.sym->backend_decl; in gfc_conv_expr_descriptor()
8029 tmp = gfc_create_var (expr->ts.u.derived->backend_decl, "class"); in gfc_conv_expr_descriptor()
8034 gfc_find_vtab (&expr->ts)->backend_decl)); in gfc_conv_expr_descriptor()
8152 expr->ts.u.cl->backend_decl = tmp; in gfc_conv_array_parameter()
8159 && (sym->backend_decl != current_function_decl) in gfc_conv_array_parameter()
8160 && (sym->backend_decl != parent)) in gfc_conv_array_parameter()
8170 se->string_length = sym->ts.u.cl->backend_decl; in gfc_conv_array_parameter()
8271 se->string_length = expr->ts.u.cl->backend_decl; in gfc_conv_array_parameter()
8962 cdecl = c->backend_decl; in structure_alloc_comps()
9240 if (vtab->backend_decl == NULL) in structure_alloc_comps()
9242 tmp = gfc_build_addr_expr (NULL_TREE, vtab->backend_decl); in structure_alloc_comps()
9295 vtab = vtable->backend_decl; in structure_alloc_comps()
9357 if (!vtab->backend_decl) in structure_alloc_comps()
9359 tmp = gfc_build_addr_expr (NULL_TREE, vtab->backend_decl); in structure_alloc_comps()
9694 c->ts.u.cl->backend_decl = strlen; in structure_alloc_comps()
10147 tmp = TREE_TYPE (expr->symtree->n.sym->backend_decl); in get_std_lbound()
10154 tmp = TREE_TYPE (ref->u.c.component->backend_decl); in get_std_lbound()
10388 expr2->ts.u.cl->backend_decl = rss->info->string_length; in gfc_alloc_allocatable_for_assignment()
10406 if (expr1->ts.u.cl->backend_decl in gfc_alloc_allocatable_for_assignment()
10407 && VAR_P (expr1->ts.u.cl->backend_decl)) in gfc_alloc_allocatable_for_assignment()
10408 elemsize1 = expr1->ts.u.cl->backend_decl; in gfc_alloc_allocatable_for_assignment()
10442 if (expr2->ts.u.cl->backend_decl in gfc_alloc_allocatable_for_assignment()
10443 && VAR_P (expr2->ts.u.cl->backend_decl)) in gfc_alloc_allocatable_for_assignment()
10444 tmp = expr2->ts.u.cl->backend_decl; in gfc_alloc_allocatable_for_assignment()
10450 tmp = expr2->ts.u.cl->backend_decl; in gfc_alloc_allocatable_for_assignment()
10455 expr2->ts.u.cl->backend_decl = gfc_evaluate_now (tmp, &fblock); in gfc_alloc_allocatable_for_assignment()
10464 expr2->ts.u.cl->backend_decl = gfc_evaluate_now (tmp, &fblock); in gfc_alloc_allocatable_for_assignment()
10466 tmp = fold_convert (TREE_TYPE (expr1->ts.u.cl->backend_decl), tmp); in gfc_alloc_allocatable_for_assignment()
10469 if (expr1->ts.u.cl->backend_decl in gfc_alloc_allocatable_for_assignment()
10470 && VAR_P (expr1->ts.u.cl->backend_decl)) in gfc_alloc_allocatable_for_assignment()
10471 gfc_add_modify (&fblock, expr1->ts.u.cl->backend_decl, tmp); in gfc_alloc_allocatable_for_assignment()
10481 else if (expr1->ts.type == BT_CHARACTER && expr1->ts.u.cl->backend_decl) in gfc_alloc_allocatable_for_assignment()
10486 expr1->ts.u.cl->backend_decl); in gfc_alloc_allocatable_for_assignment()
10741 if (expr2->ts.u.cl->backend_decl) in gfc_alloc_allocatable_for_assignment()
10974 gcc_assert (VAR_P (sym->backend_decl) in gfc_trans_deferred_array()
10975 || TREE_CODE (sym->backend_decl) == PARM_DECL); in gfc_trans_deferred_array()
10978 && !INTEGER_CST_P (sym->ts.u.cl->backend_decl)) in gfc_trans_deferred_array()
10992 descriptor = sym->backend_decl; in gfc_trans_deferred_array()
11008 type = TREE_TYPE (sym->backend_decl); in gfc_trans_deferred_array()
11014 && !(TREE_STATIC (sym->backend_decl) && sym->attr.is_main_program)) in gfc_trans_deferred_array()
11033 sym->backend_decl); in gfc_trans_deferred_array()
11086 tmp = gfc_deallocate_with_status (sym->backend_decl, NULL_TREE, NULL_TREE, in gfc_trans_deferred_array()