resolve.c (is_illegal_recursion): Return false if sym is program.

2009-11-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* resolve.c (is_illegal_recursion): Return false if sym is program.

From-SVN: r153988

gcc/fortran/ChangeLog

+2009-11-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	* resolve.c (is_illegal_recursion): Return false if sym is program.
+
 2009-11-06  Steven G. Kargl  <kargl@gcc.gnu.org>
 
-	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  <kargl@gcc.gnu.org>

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.  */