[Bug fortran/32760] Error defining subroutine named PRINT

[jvdelisle at gcc dot gnu dot org]

------- Comment #11 from jvdelisle at gcc dot gnu dot org  2007-07-26 04:02 
-------
The following seems to allow the test case to compile without error:

Index: primary.c
===================================================================
--- primary.c   (revision 126937)
+++ primary.c   (working copy)
@@ -2452,6 +2452,8 @@ match_variable (gfc_expr **result, int e
       break;

     case FL_UNKNOWN:
+      if (sym->attr.access == ACCESS_PUBLIC)
+       break;
       if (gfc_add_flavor (&sym->attr, FL_VARIABLE,
                          sym->name, NULL) == FAILURE)
        return MATCH_ERROR;

I am regression testing now and I need to verify if the resulting executable
actually works or not.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32760