From 142f5e4acdce0a04f2619784ddf54ff924082bbc Mon Sep 17 00:00:00 2001 From: Andreas Schmidt Date: Sun, 5 Jun 2011 18:48:11 +0000 Subject: [PATCH] dump-parse-tree.c (show_symbol): Don't dump namespace for ENTRY to avoid infinite recursion. 2011-06-05 Andreas Schmidt Thomas Koenig * dump-parse-tree.c (show_symbol): Don't dump namespace for ENTRY to avoid infinite recursion. Co-Authored-By: Thomas Koenig From-SVN: r174659 --- gcc/fortran/ChangeLog | 8 +++++++- gcc/fortran/dump-parse-tree.c | 3 ++- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 532a30b1ab3..34acfed9e95 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2011-06-05 Andreas Schmidt + Thomas Koenig + + * dump-parse-tree.c (show_symbol): Don't dump namespace + for ENTRY to avoid infinite recursion. + 2011-06-02 Asher Langton PR fortran/49268 @@ -16,7 +22,7 @@ procedure statement. * parse.c ( decode_statement): Deal with whitespace around :: in gfc_match_modproc. - + 2011-05-31 Tobias Burnus PR fortran/18918 diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index c6be074b21d..c80706272ad 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -893,7 +893,8 @@ show_symbol (gfc_symbol *sym) } if (sym->formal_ns && (sym->formal_ns->proc_name != sym) - && sym->attr.proc != PROC_ST_FUNCTION) + && sym->attr.proc != PROC_ST_FUNCTION + && !sym->attr.entry) { show_indent (); fputs ("Formal namespace", dumpfile); -- 2.30.2