*** dump-parse-tree.c.bak	Thu Jun 30 20:02:40 2005
--- gcc-4.1-20050522/gcc/fortran/dump-parse-tree.c	Thu Jun 30 19:51:20 2005
*************** show_symtree (gfc_symtree * st)
*** 756,762 ****
    gfc_status ("symtree: %s  Ambig %d", st->name, st->ambiguous);
  
    if (st->n.sym->ns != gfc_current_ns)
!     gfc_status (" from namespace %s", st->n.sym->ns->proc_name->name);
    else
      gfc_show_symbol (st->n.sym);
  }
--- 756,768 ----
    gfc_status ("symtree: %s  Ambig %d", st->name, st->ambiguous);
  
    if (st->n.sym->ns != gfc_current_ns)
!     {
!       if(st->n.sym->ns->proc_name)
! 	gfc_status (" from namespace %s",
! 		    st->n.sym->ns->proc_name->name);
!       else
! 	gfc_status (" from the main program namespace");
!     }
    else
      gfc_show_symbol (st->n.sym);
  }