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()
1309 && (comp->attr.allocatable || cons->expr->rank)) in resolve_structure_cons()
1391 && !(comp->attr.pointer || comp->attr.allocatable in resolve_structure_cons()
1395 || CLASS_DATA (comp)->attr.allocatable)))) in resolve_structure_cons()
1441 && comp->as && !comp->attr.allocatable && !comp->attr.pointer in resolve_structure_cons()
1493 if (a.allocatable) in resolve_structure_cons()
1542 if (a.allocatable || a.dimension || a.dummy || a.external || a.intrinsic in was_declared()
2434 if (arg->sym->attr.allocatable) /* (2a) */ in gfc_explicit_interface_required()
2517 else if (res->attr.pointer || res->attr.allocatable) /* (3b) */ in gfc_explicit_interface_required()
5360 else if (ref->u.c.component->attr.allocatable in gfc_resolve_ref()
5362 && CLASS_DATA (ref->u.c.component)->attr.allocatable)) in gfc_resolve_ref()
5939 if (c->attr.allocatable && c->ts.type == BT_CLASS) in resolve_variable()
7443 && (c->attr.pointer || c->attr.allocatable) in derived_inaccessible()
7462 int allocatable, pointer; in resolve_deallocate_expr() local
7479 allocatable = CLASS_DATA (sym)->attr.allocatable; in resolve_deallocate_expr()
7484 allocatable = sym->attr.allocatable; in resolve_deallocate_expr()
7495 allocatable = 0; in resolve_deallocate_expr()
7502 allocatable = CLASS_DATA (c)->attr.allocatable; in resolve_deallocate_expr()
7507 allocatable = c->attr.allocatable; in resolve_deallocate_expr()
7514 allocatable = 0; in resolve_deallocate_expr()
7521 if (allocatable == 0 && attr.pointer == 0 && !unlimited) in resolve_deallocate_expr()
7694 int i, pointer, allocatable, dimension, is_abstract; in resolve_allocate_expr() local
7734 allocatable = 0; in resolve_allocate_expr()
7744 allocatable = CLASS_DATA (sym)->attr.allocatable; in resolve_allocate_expr()
7752 allocatable = sym->attr.allocatable; in resolve_allocate_expr()
7793 allocatable = CLASS_DATA (c)->attr.allocatable; in resolve_allocate_expr()
7801 allocatable = c->attr.allocatable; in resolve_allocate_expr()
7811 allocatable = 0; in resolve_allocate_expr()
7819 if (allocatable == 0 && pointer == 0 && !unlimited) in resolve_allocate_expr()
9171 sym->attr.allocatable = 1; in resolve_assoc_var()
9780 if (case_value == -1 && (gfc_expr_attr (code->expr1).allocatable in resolve_select_rank()
9785 if (case_value == -1 && (gfc_expr_attr (code->expr1).allocatable in resolve_select_rank()
11025 if (lhs->ts.type == BT_CLASS && attr.allocatable) in resolve_ordinary_assign()
11078 && !gfc_expr_attr (rhs).allocatable in resolve_ordinary_assign()
11224 tmp->n.sym->attr.allocatable = 1; in get_temp_from_expr()
11233 tmp->n.sym->attr.allocatable = 1; in get_temp_from_expr()
11282 || c->attr.allocatable in nonscalar_typebound_assign()
11422 || comp1->attr.allocatable in generate_component_assignments()
11478 if ((*code)->expr1->symtree->n.sym->attr.allocatable) in generate_component_assignments()
11504 if ((*code)->expr1->symtree->n.sym->attr.allocatable in generate_component_assignments()
11505 && gfc_expr_attr ((*code)->expr1).allocatable) in generate_component_assignments()
11560 if (t1 && (*code)->expr1->symtree->n.sym->attr.allocatable in generate_component_assignments()
11561 && gfc_expr_attr ((*code)->expr1).allocatable) in generate_component_assignments()
11641 tmp_ptr_expr->symtree->n.sym->attr.allocatable = 0; in resolve_ptr_fcn_assign()
12569 a->allocatable in can_generate_init()
12617 if (sym->attr.allocatable in build_default_init_expr()
12687 bool pointer, allocatable, dimension; in resolve_fl_var_and_proc() local
12693 allocatable = CLASS_DATA (sym)->attr.allocatable; in resolve_fl_var_and_proc()
12699 allocatable = sym->attr.allocatable; in resolve_fl_var_and_proc()
12703 if (allocatable) in resolve_fl_var_and_proc()
12727 if (!mp_flag && !sym->attr.allocatable && !sym->attr.pointer in resolve_fl_var_and_proc()
12811 && !sym->attr.pointer && !sym->attr.allocatable in resolve_fl_variable_derived()
12819 if (!(sym->value || sym->attr.pointer || sym->attr.allocatable) in resolve_fl_variable_derived()
12836 || sym->attr.allocatable in deferred_requirements()
12874 && !sym->attr.allocatable in resolve_fl_variable()
12946 if (sym->attr.allocatable || sym->attr.external || sym->attr.dummy in resolve_fl_variable()
12978 if (sym->attr.allocatable || (sym->ts.type == BT_CLASS in resolve_fl_variable()
12979 && CLASS_DATA (sym)->attr.allocatable)) in resolve_fl_variable()
13163 && (sym->attr.allocatable || sym->attr.pointer)) in resolve_fl_procedure()
13238 (CLASS_DATA (sym->result)->attr.allocatable in resolve_fl_procedure()
13240 (sym->result->attr.allocatable in resolve_fl_procedure()
13452 && !c->attr.pointer && !c->attr.proc_pointer && !c->attr.allocatable) in gfc_resolve_finalizers()
13521 if (arg->attr.allocatable) in gfc_resolve_finalizers()
14139 if (CLASS_DATA (me_arg)->attr.allocatable) in resolve_typebound_procedure()
14337 || c->attr.allocatable in check_defined_assignments()
14382 && (!c->attr.allocatable || (c->as && c->as->type != AS_DEFERRED))) in resolve_component()
14401 || c->attr.allocatable)) in resolve_component()
14465 c->attr.allocatable = ifc->result->attr.allocatable; in resolve_component()
14474 c->attr.allocatable = ifc->attr.allocatable; in resolve_component()
14593 if (CLASS_DATA (me_arg)->attr.allocatable) in resolve_component()
14672 && !c->attr.pointer && !c->attr.allocatable) in resolve_component()
14742 && c->ts.u.derived == sym && c->attr.allocatable == 1) in resolve_component()
14757 || c->attr.allocatable))) in resolve_component()
14886 && (c->attr.allocatable || c->attr.pointer)) in resolve_fl_derived0()
15241 && !attr->allocatable && !attr->pointer) in resolve_pdt()
15431 sym->attr.allocatable = sym->result->attr.allocatable; in resolve_symbol()
15597 if (sym->attr.allocatable || sym->attr.codimension in resolve_symbol()
15639 if (sym->attr.allocatable || sym->attr.codimension in resolve_symbol()
15871 || class_attr.allocatable)) in resolve_symbol()
15881 && !(class_attr.allocatable || sym->attr.dummy || sym->attr.save in resolve_symbol()
15895 && !class_attr.allocatable && as && as->cotype == AS_DEFERRED) in resolve_symbol()
15901 else if (class_attr.codimension && class_attr.allocatable && as in resolve_symbol()
15914 || (class_attr.codimension && class_attr.allocatable)) in resolve_symbol()
16062 && !sym->attr.allocatable in resolve_symbol()
16088 && !CLASS_DATA (sym)->attr.allocatable) in resolve_symbol()