[Bug fortran/53537] [4.5/4.6/4.7/4.8 Regression] Explicit IMPORT of renamed USE-associated symbol fails

[burnus at gcc dot gnu.org]

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

--- Comment #3 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-05-31 16:30:53 UTC ---
The patch of comment 1 fails for testsuite/gfortran.dg/import7.f90:

             TYPE(T3) X
                       1
  Error: The type of 'x' at (1) has not been declared within the interface

The following patch - on top of the one in comment 1 - does *not* help:

--- a/gcc/fortran/decl.c
+++ b/gcc/fortran/decl.c
@@ -3206,3 +3206,3 @@ gfc_match_import (void)
                        gfc_get_string ("%c%s",
-                               (char) TOUPPER ((unsigned char) sym->name[0]),
+                               (char) TOUPPER ((unsigned char) name[0]),
                                &sym->name[1]));