Fortran: Fix namelist with use association and renaming

The previous commit for this PR fails on FreeBSD. The fix here
is the original provided by the author. The test case remains
unchanged.

	PR fortran/123321

gcc/fortran/ChangeLog:

	* trans-io.cc (transfer_namelist_element):  Adjust the
	conditions determining when to use the local name or
	the var name to build the object name.

diff --git a/gcc/fortran/trans-io.cc b/gcc/fortran/trans-io.cc
index 2d799b129725fe5a3d8e0935bbdf6941d9a2a641..23ab1e599f3a7d904573090c2617c0bdb69b1182 100644 (file)
--- a/gcc/fortran/trans-io.cc
+++ b/gcc/fortran/trans-io.cc
@@ -1699,8 +1699,7 @@ transfer_namelist_element (stmtblock_t * block, const char * var_name,
 
   /* Build the namelist object name.  */
   if (sym && sym->attr.use_rename && sym->ns->use_stmts->rename
-      && sym->ns->use_stmts->rename->local_name
-      && sym->ns->use_stmts->rename->local_name[0]
+      && strlen(sym->ns->use_stmts->rename->local_name) > 0
       && strcmp(sym->ns->use_stmts->rename->use_name, var_name) == 0)
     string = gfc_build_cstring_const (sym->ns->use_stmts->rename->local_name);
   else