Lines Matching defs:dealloc
1013 gfc_code *dealloc, *block = NULL;
1034 dealloc = gfc_get_code (EXEC_DEALLOCATE);
1036 dealloc->ext.alloc.list = gfc_get_alloc ();
1037 dealloc->ext.alloc.list->expr = e;
1038 dealloc->expr1 = gfc_lval_expr_from_sym (stat);
1056 cond->block->next = dealloc;
2292 gfc_symbol *dealloc = NULL, *arg = NULL;
2579 gfc_get_symbol (name, sub_ns, &dealloc);
2580 sub_ns->proc_name = dealloc;
2581 dealloc->attr.flavor = FL_PROCEDURE;
2582 dealloc->attr.subroutine = 1;
2583 dealloc->attr.pure = 1;
2584 dealloc->attr.artificial = 1;
2585 dealloc->attr.if_source = IFSRC_DECL;
2588 dealloc->module = ns->proc_name->name;
2589 gfc_set_sym_referenced (dealloc);
2606 dealloc->formal = gfc_get_formal_arglist ();
2607 dealloc->formal->sym = arg;
2614 c->initializer = gfc_lval_expr_from_sym (dealloc);
2615 c->ts.interface = dealloc;
2648 if (dealloc)
2649 gfc_commit_symbol (dealloc);