From 595aea75a2e987e4b8986bead57f4a8d00254874 Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Sat, 7 Nov 2009 02:30:08 +0000 Subject: [PATCH] 2009-11-06 Jerry DeLisle * resolve.c (is_illegal_recursion): Return false if sym is program. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@153988 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 6 +++++- gcc/fortran/resolve.c | 3 +++ 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 33deec4d8ac..93d242c6195 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,6 +1,10 @@ +2009-11-06 Jerry DeLisle + + * resolve.c (is_illegal_recursion): Return false if sym is program. + 2009-11-06 Steven G. Kargl - resolve.c (check_typebound_override): Remove duplicate "in" in error + * resolve.c (check_typebound_override): Remove duplicate "in" in error message. 2009-11-05 Steven G. Kargl diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 1cbe04a3a46..d9a53e2fa95 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -1117,6 +1117,9 @@ is_illegal_recursion (gfc_symbol* sym, gfc_namespace* context) gfc_symbol* context_proc; gfc_namespace* real_context; + if (sym->attr.flavor == FL_PROGRAM) + return false; + gcc_assert (sym->attr.flavor == FL_PROCEDURE); /* If we've got an ENTRY, find real procedure. */ -- 2.11.0