Lines Matching refs:allocatable
217 sym->attr.allocatable = ifc->result->attr.allocatable; in resolve_procedure_interface()
227 sym->attr.allocatable = ifc->attr.allocatable; in resolve_procedure_interface()
281 || sym->attr.pointer || sym->attr.allocatable in gfc_resolve_formal_arglist()
349 && !(sym->attr.pointer || sym->attr.allocatable)) in gfc_resolve_formal_arglist()
352 || CLASS_DATA (sym)->attr.allocatable))) in gfc_resolve_formal_arglist()
362 || sym->attr.pointer || sym->attr.allocatable || sym->attr.target in gfc_resolve_formal_arglist()
365 || CLASS_DATA (sym)->attr.allocatable in gfc_resolve_formal_arglist()
471 if (sym->attr.allocatable in gfc_resolve_formal_arglist()
473 && CLASS_DATA (sym)->attr.allocatable)) in gfc_resolve_formal_arglist()
808 && (el->sym->result->attr.allocatable in resolve_entries()
809 != ns->entries->sym->result->attr.allocatable)) in resolve_entries()
1337 && (comp->attr.allocatable || cons->expr->rank)) in resolve_structure_cons()
1430 && !(comp->attr.pointer || comp->attr.allocatable in resolve_structure_cons()
1434 || CLASS_DATA (comp)->attr.allocatable)))) in resolve_structure_cons()
1480 && comp->as && !comp->attr.allocatable && !comp->attr.pointer in resolve_structure_cons()
1532 if (a.allocatable) in resolve_structure_cons()
1581 if (a.allocatable || a.dimension || a.dummy || a.external || a.intrinsic in was_declared()
2492 if (arg->sym->attr.allocatable) /* (2a) */ in gfc_explicit_interface_required()
2575 else if (res->attr.pointer || res->attr.allocatable) /* (3b) */ in gfc_explicit_interface_required()
5443 else if (ref->u.c.component->attr.allocatable in gfc_resolve_ref()
5445 && CLASS_DATA (ref->u.c.component)->attr.allocatable)) in gfc_resolve_ref()
6023 if (c->attr.allocatable && c->ts.type == BT_CLASS) in resolve_variable()
7565 && (c->attr.pointer || c->attr.allocatable) in derived_inaccessible()
7584 int allocatable, pointer; in resolve_deallocate_expr() local
7601 allocatable = CLASS_DATA (sym)->attr.allocatable; in resolve_deallocate_expr()
7606 allocatable = sym->attr.allocatable; in resolve_deallocate_expr()
7617 allocatable = 0; in resolve_deallocate_expr()
7624 allocatable = CLASS_DATA (c)->attr.allocatable; in resolve_deallocate_expr()
7629 allocatable = c->attr.allocatable; in resolve_deallocate_expr()
7636 allocatable = 0; in resolve_deallocate_expr()
7643 if (allocatable == 0 && attr.pointer == 0 && !unlimited) in resolve_deallocate_expr()
7816 int i, pointer, allocatable, dimension, is_abstract; in resolve_allocate_expr() local
7856 allocatable = 0; in resolve_allocate_expr()
7866 allocatable = CLASS_DATA (sym)->attr.allocatable; in resolve_allocate_expr()
7874 allocatable = sym->attr.allocatable; in resolve_allocate_expr()
7915 allocatable = CLASS_DATA (c)->attr.allocatable; in resolve_allocate_expr()
7923 allocatable = c->attr.allocatable; in resolve_allocate_expr()
7933 allocatable = 0; in resolve_allocate_expr()
7942 if (allocatable == 0 && pointer == 0) in resolve_allocate_expr()
9309 sym->attr.allocatable = 1; in resolve_assoc_var()
9924 if (case_value == -1 && (gfc_expr_attr (code->expr1).allocatable in resolve_select_rank()
11182 if (lhs->ts.type == BT_CLASS && attr.allocatable) in resolve_ordinary_assign()
11235 && !gfc_expr_attr (rhs).allocatable in resolve_ordinary_assign()
11383 tmp->n.sym->attr.allocatable = 1; in get_temp_from_expr()
11392 tmp->n.sym->attr.allocatable = 1; in get_temp_from_expr()
11441 || c->attr.allocatable in nonscalar_typebound_assign()
11581 || comp1->attr.allocatable in generate_component_assignments()
11637 if ((*code)->expr1->symtree->n.sym->attr.allocatable) in generate_component_assignments()
11663 if ((*code)->expr1->symtree->n.sym->attr.allocatable in generate_component_assignments()
11664 && gfc_expr_attr ((*code)->expr1).allocatable) in generate_component_assignments()
11719 if (t1 && (*code)->expr1->symtree->n.sym->attr.allocatable in generate_component_assignments()
11720 && gfc_expr_attr ((*code)->expr1).allocatable) in generate_component_assignments()
11800 tmp_ptr_expr->symtree->n.sym->attr.allocatable = 0; in resolve_ptr_fcn_assign()
12776 a->allocatable in can_generate_init()
12825 if (sym->attr.allocatable in build_default_init_expr()
12895 bool pointer, allocatable, dimension; in resolve_fl_var_and_proc() local
12901 allocatable = CLASS_DATA (sym)->attr.allocatable; in resolve_fl_var_and_proc()
12907 allocatable = sym->attr.allocatable; in resolve_fl_var_and_proc()
12911 if (allocatable) in resolve_fl_var_and_proc()
12938 if (!mp_flag && !sym->attr.allocatable && !sym->attr.pointer in resolve_fl_var_and_proc()
13022 && !sym->attr.pointer && !sym->attr.allocatable in resolve_fl_variable_derived()
13030 if (!(sym->value || sym->attr.pointer || sym->attr.allocatable) in resolve_fl_variable_derived()
13049 || sym->attr.allocatable in deferred_requirements()
13087 && !sym->attr.allocatable in resolve_fl_variable()
13159 if (sym->attr.allocatable || sym->attr.external || sym->attr.dummy in resolve_fl_variable()
13191 if (sym->attr.allocatable || (sym->ts.type == BT_CLASS in resolve_fl_variable()
13192 && CLASS_DATA (sym)->attr.allocatable)) in resolve_fl_variable()
13375 && (sym->attr.allocatable || sym->attr.pointer)) in resolve_fl_procedure()
13450 (CLASS_DATA (sym->result)->attr.allocatable in resolve_fl_procedure()
13452 (sym->result->attr.allocatable in resolve_fl_procedure()
13664 && !c->attr.pointer && !c->attr.proc_pointer && !c->attr.allocatable) in gfc_resolve_finalizers()
13733 if (arg->attr.allocatable) in gfc_resolve_finalizers()
14352 if (CLASS_DATA (me_arg)->attr.allocatable) in resolve_typebound_procedure()
14550 || c->attr.allocatable in check_defined_assignments()
14595 && (!c->attr.allocatable || (c->as && c->as->type != AS_DEFERRED))) in resolve_component()
14614 || c->attr.allocatable)) in resolve_component()
14678 c->attr.allocatable = ifc->result->attr.allocatable; in resolve_component()
14687 c->attr.allocatable = ifc->attr.allocatable; in resolve_component()
14806 if (CLASS_DATA (me_arg)->attr.allocatable) in resolve_component()
14885 && !c->attr.pointer && !c->attr.allocatable) in resolve_component()
14955 && c->ts.u.derived == sym && c->attr.allocatable == 1) in resolve_component()
14969 && (c->attr.pointer || c->attr.allocatable)) in resolve_component()
14974 || c->attr.allocatable))) in resolve_component()
15103 && (c->attr.allocatable || c->attr.pointer)) in resolve_fl_derived0()
15461 && !attr->allocatable && !attr->pointer) in resolve_pdt()
15651 sym->attr.allocatable = sym->result->attr.allocatable; in resolve_symbol()
15821 if (sym->attr.allocatable || sym->attr.codimension in resolve_symbol()
15863 if (sym->attr.allocatable || sym->attr.codimension in resolve_symbol()
16095 || class_attr.allocatable)) in resolve_symbol()
16105 && !(class_attr.allocatable || sym->attr.dummy || sym->attr.save in resolve_symbol()
16119 && !class_attr.allocatable && as && as->cotype == AS_DEFERRED) in resolve_symbol()
16125 else if (class_attr.codimension && class_attr.allocatable && as in resolve_symbol()
16138 || (class_attr.codimension && class_attr.allocatable)) in resolve_symbol()
16288 && !sym->attr.allocatable in resolve_symbol()
16316 && !CLASS_DATA (sym)->attr.allocatable) in resolve_symbol()
16439 if (ref->type == REF_COMPONENT && ref->u.c.component->attr.allocatable) in check_data_variable()