static void show_symtree(g95_symtree *st) { show_indent(); g95_status("symtree('%s', symbol=%s", st->name, g95_symbol_name(st->n.sym)); if (st->ambiguous) g95_status(", ambiguous=1"); g95_status(")"); if (st->n.sym->ns != g95_current_ns) g95_status(" # from namespace %s\n", st->n.sym->ns->proc_name->name); else { g95_status_char('\n'); show_symbol(st->n.sym); } }
static void show_symtree (gfc_symtree *st) { int len, i; show_indent (); len = strlen(st->name); fprintf (dumpfile, "symtree: '%s'", st->name); for (i=len; i<12; i++) fputc(' ', dumpfile); if (st->ambiguous) fputs( " Ambiguous", dumpfile); if (st->n.sym->ns != gfc_current_ns) fprintf (dumpfile, "|| symbol: '%s' from namespace '%s'", st->n.sym->name, st->n.sym->ns->proc_name->name); else show_symbol (st->n.sym); }