Searched refs:proc_tree (Results 1 – 16 of 16) sorted by relevance
1397 if (fini->proc_tree->n.sym->formal->sym->as->type != AS_ASSUMED_SHAPE in finalizer_insert_packed_call()1398 || fini->proc_tree->n.sym->formal->sym->attr.contiguous) in finalizer_insert_packed_call()1427 block->next->symtree = fini->proc_tree; in finalizer_insert_packed_call()1428 block->next->resolved_sym = fini->proc_tree->n.sym; in finalizer_insert_packed_call()1465 tmp_array->as->rank = fini->proc_tree->n.sym->formal->sym->as->rank; in finalizer_insert_packed_call()1532 block->symtree = fini->proc_tree; in finalizer_insert_packed_call()1533 block->resolved_sym = fini->proc_tree->n.sym; in finalizer_insert_packed_call()1537 if (fini->proc_tree->n.sym->formal->sym->attr.intent == INTENT_IN) in finalizer_insert_packed_call()2063 gcc_assert (fini->proc_tree); /* Should have been set in gfc_resolve_finalizers. */ in generate_finalization_wrapper()2064 if (fini->proc_tree->n.sym->attr.elemental) in generate_finalization_wrapper()[all …]
4068 gcc_assert ((*f)->proc_tree); /* Should already be resolved. */ in mio_finalizer()4069 mio_symtree_ref (&(*f)->proc_tree); in mio_finalizer()4077 mio_symtree_ref (&(*f)->proc_tree); in mio_finalizer()
2831 gfc_symtree* proc_tree; member
1023 fprintf (dumpfile, "FINAL %s", f->proc_tree->n.sym->name); in show_f2k_derived()
13479 if (list->proc_tree) in gfc_resolve_finalizers()13481 if (list->proc_tree->n.sym->formal->sym->as == NULL in gfc_resolve_finalizers()13482 || list->proc_tree->n.sym->formal->sym->as->rank == 0) in gfc_resolve_finalizers()13582 gcc_assert (!list->proc_tree); in gfc_resolve_finalizers()13583 list->proc_tree = gfc_find_sym_in_symtree (list->proc_sym); in gfc_resolve_finalizers()
11616 f->proc_tree = NULL; in gfc_match_final_decl()
1412 if (fini->proc_tree->n.sym->formal->sym->as->type != AS_ASSUMED_SHAPE in finalizer_insert_packed_call()1413 || fini->proc_tree->n.sym->formal->sym->attr.contiguous) in finalizer_insert_packed_call()1442 block->next->symtree = fini->proc_tree; in finalizer_insert_packed_call()1443 block->next->resolved_sym = fini->proc_tree->n.sym; in finalizer_insert_packed_call()1480 tmp_array->as->rank = fini->proc_tree->n.sym->formal->sym->as->rank; in finalizer_insert_packed_call()1547 block->symtree = fini->proc_tree; in finalizer_insert_packed_call()1548 block->resolved_sym = fini->proc_tree->n.sym; in finalizer_insert_packed_call()1552 if (fini->proc_tree->n.sym->formal->sym->attr.intent == INTENT_IN) in finalizer_insert_packed_call()2071 gcc_assert (fini->proc_tree); /* Should have been set in gfc_resolve_finalizers. */ in generate_finalization_wrapper()2072 if (fini->proc_tree->n.sym->attr.elemental) in generate_finalization_wrapper()[all …]
4219 gcc_assert ((*f)->proc_tree); /* Should already be resolved. */ in mio_finalizer()4220 mio_symtree_ref (&(*f)->proc_tree); in mio_finalizer()4228 mio_symtree_ref (&(*f)->proc_tree); in mio_finalizer()
3116 gfc_symtree* proc_tree; member
13691 if (list->proc_tree) in gfc_resolve_finalizers()13693 if (list->proc_tree->n.sym->formal->sym->as == NULL in gfc_resolve_finalizers()13694 || list->proc_tree->n.sym->formal->sym->as->rank == 0) in gfc_resolve_finalizers()13794 gcc_assert (!list->proc_tree); in gfc_resolve_finalizers()13795 list->proc_tree = gfc_find_sym_in_symtree (list->proc_sym); in gfc_resolve_finalizers()
1050 fprintf (dumpfile, "FINAL %s", f->proc_tree->n.sym->name); in show_f2k_derived()
428 * class.c (generate_finalization_wrapper): Init proc_tree if
2464 * class.c (generate_finalization_wrapper): Assert that proc_tree has
831 proc_tree->n.sym rather than unresolved proc_sym.
11706 f->proc_tree = NULL; in gfc_match_final_decl()
1383 new members `proc_sym' and `proc_tree' to store the symtree after