Lines Matching refs:allocatable
5954 bool allocatable, coarray, dimension, alloc_w_e3_arr_spec = false, in gfc_array_allocate() local
5967 allocatable = expr->symtree->n.sym->attr.allocatable; in gfc_array_allocate()
5973 allocatable = prev_ref->u.c.component->attr.allocatable; in gfc_array_allocate()
6109 if (allocatable) in gfc_array_allocate()
6123 if (allocatable) in gfc_array_allocate()
6468 gcc_assert (!(sym->attr.pointer || sym->attr.allocatable)); in gfc_trans_auto_array_allocation()
6688 || sym->attr.allocatable in gfc_trans_dummy_array_bias()
6689 || (is_classarray && CLASS_DATA (sym)->attr.allocatable)) in gfc_trans_dummy_array_bias()
7993 && !expr->symtree->n.sym->attr.allocatable in gfc_conv_expr_descriptor()
8134 ultimate_alloc_comp = ref->u.c.component->attr.allocatable; in gfc_conv_array_parameter()
8177 && !sym->attr.allocatable) in gfc_conv_array_parameter()
8190 if (sym->attr.allocatable) in gfc_conv_array_parameter()
8239 || result->attr.allocatable in gfc_conv_array_parameter()
8251 && expr->symtree->n.sym->attr.allocatable; in gfc_conv_array_parameter()
8684 attr.allocatable = 1; in duplicate_allocatable_coarray()
9118 if (c->ts.type == BT_CLASS && attr->allocatable) in structure_alloc_comps()
9148 if (attr->allocatable && !same_type in structure_alloc_comps()
9187 else if (attr->allocatable && !attr->codimension in structure_alloc_comps()
9268 if (c->ts.type == BT_CLASS && attr->allocatable in structure_alloc_comps()
9316 || !(c->attr.allocatable || (c->ts.type == BT_CLASS in structure_alloc_comps()
9317 && CLASS_DATA (c)->attr.allocatable) in structure_alloc_comps()
9328 && (CLASS_DATA (c)->attr.allocatable in structure_alloc_comps()
9372 else if (c->attr.pointer || c->attr.allocatable) in structure_alloc_comps()
9495 if (c->ts.type == BT_CLASS && CLASS_DATA (c)->attr.allocatable) in structure_alloc_comps()
9619 else if ((c->attr.allocatable) in structure_alloc_comps()
9809 && !(c->attr.pointer || c->attr.allocatable)) in structure_alloc_comps()
9844 && (!c->attr.pointer && !c->attr.allocatable)) in structure_alloc_comps()
10183 && CLASS_DATA (sym)->attr.allocatable in gfc_is_reallocatable_lhs()
10196 if (sym->attr.allocatable in gfc_is_reallocatable_lhs()
10221 if (ref->u.c.component->attr.allocatable in gfc_is_reallocatable_lhs()
10966 gcc_assert (sym->attr.pointer || sym->attr.allocatable || sym_has_alloc_comp in gfc_trans_deferred_array()
11011 && !(sym->attr.pointer || sym->attr.allocatable)) in gfc_trans_deferred_array()
11038 if (GFC_DESCRIPTOR_TYPE_P (type) && !sym->attr.save && sym->attr.allocatable) in gfc_trans_deferred_array()
11059 if (!sym->attr.allocatable && has_finalizer && sym->ts.type != BT_CLASS in gfc_trans_deferred_array()
11069 else if ((!sym->attr.allocatable || !has_finalizer) in gfc_trans_deferred_array()
11080 if (sym->attr.allocatable && (sym->attr.dimension || sym->attr.codimension) in gfc_trans_deferred_array()
11387 || gfc_expr_attr (arg->expr).allocatable in gfc_walk_elemental_function_args()