[Bug fortran/45066] ICE in namelist read in snapshot of 7/24/2010

[jvdelisle at gcc dot gnu dot org]

------- Comment #6 from jvdelisle at gcc dot gnu dot org  2010-07-25 17:37 
-------
Here is another possibility.  Only one namelist regression with this on.

Index: trans-io.c
===================================================================
--- trans-io.c  (revision 162507)
+++ trans-io.c  (working copy)
@@ -1759,8 +1759,11 @@ build_dt (tree function, gfc_code * code)
          dt_parm = var;

          for (nml = dt->namelist->namelist; nml; nml = nml->next)
-           transfer_namelist_element (&block, nml->sym->name, nml->sym,
-                                      NULL, NULL);
+           {
+             if (nml->sym->backend_decl)
+               transfer_namelist_element (&block, nml->sym->name, nml->sym,
+                                          NULL, NULL);
+           }
        }
       else
        set_parameter_const (&block, var, IOPARM_common_flags, mask);


-- 


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