[Bug fortran/120784] fortran: issue with use-association renames and interface

[anlauf at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=120784

--- Comment #9 from anlauf at gcc dot gnu.org ---
Fixed by:

diff --git a/gcc/fortran/interface.cc b/gcc/fortran/interface.cc
index cdb838d8336..7899864158c 100644
--- a/gcc/fortran/interface.cc
+++ b/gcc/fortran/interface.cc
@@ -457,7 +457,9 @@ gfc_match_end_interface (void)

       if (current_interface.sym->attr.use_assoc
          && current_interface.sym->attr.use_rename
-         && current_interface.sym->ns->use_stmts->rename)
+         && current_interface.sym->ns->use_stmts->rename
+         && (current_interface.sym->ns->use_stmts->rename->local_name[0]
+             != '\0'))
        local_name = current_interface.sym->ns->use_stmts->rename->local_name;

       if (type != current_interface.type

Will regtest...