re PR fortran/45066 (ICE in namelist read in snapshot of 7/24/2010)

2010-07-26  Tobias Burnus  <burnus@net-b.de>

        PR fortran/45066
        * trans-io.c (build_dt): Use NULL_TREE rather than NULL
        for call to transfer_namelist_element.
        * trans-decl.c (gfc_get_symbol_decl): Also set sym->backend_decl
        for -fwhole-file.

2010-07-26  Tobias Burnus  <burnus@net-b.de>

        PR fortran/45066
        * gfortran.dg/namelist_62.f90: New.

From-SVN: r162532

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index f29ccca6aaa41a6acab9bee2b5caddba916c7f64..999d38efef79fe50cf4a11db669e5ec401e5f984 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,11 @@
+2010-07-26  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/45066
+       * trans-io.c (build_dt): Use NULL_TREE rather than NULL
+       for call to transfer_namelist_element.
+       * trans-decl.c (gfc_get_symbol_decl): Also set sym->backend_decl
+       for -fwhole-file.
+
 2010-07-25  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        PR fortran/40628

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index a1789ea74589f4cb3155d48d330d8224302f6fb0..4a3fcd8c616daccee8a3d0ed800e9f8e37a7db82 100644 (file)
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -1150,7 +1150,8 @@ gfc_get_symbol_decl (gfc_symbol * sym)
                                           true);
              if (sym->ts.type == BT_CHARACTER)
                sym->ts.u.cl->backend_decl = s->ts.u.cl->backend_decl;
-             return s->backend_decl;
+             sym->backend_decl = s->backend_decl;
+             return sym->backend_decl;
            }
        }
     }

diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index a806d42341781295ba60d263a097447b95407e80..00c44e75d31014066d79739229a721112e53b706 100644 (file)
--- a/gcc/fortran/trans-io.c
+++ b/gcc/fortran/trans-io.c
@@ -1760,7 +1760,7 @@ build_dt (tree function, gfc_code * code)
 
          for (nml = dt->namelist->namelist; nml; nml = nml->next)
            transfer_namelist_element (&block, nml->sym->name, nml->sym,
-                                      NULL, NULL);
+                                      NULL, NULL_TREE);
        }
       else
        set_parameter_const (&block, var, IOPARM_common_flags, mask);

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7897b053500504542c9a6263b6ccd9fc9d2173a5..b9de6e42ae4e5489d8e8d4d6a1c0d6081939d2f0 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-07-26  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/45066
+       * gfortran.dg/namelist_62.f90: New.
+
 2010-07-26  Richard Guenther  <rguenther@suse.de>
 
        * gcc.c-torture/execute/pr45017.c: Move ...

diff --git a/gcc/testsuite/gfortran.dg/namelist_62.f90 b/gcc/testsuite/gfortran.dg/namelist_62.f90
new file mode 100644 (file)
index 0000000..23e2562
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/namelist_62.f90
@@ -0,0 +1,20 @@
+! { dg-do compile }
+!
+! PR fortran/45066
+!
+! Contributed by Michael Richmond.
+!
+! Was failing due to a -fwhole-file bug.
+!
+
+MODULE GA_commons
+  INTEGER :: nichflg(2)
+END MODULE GA_commons
+
+PROGRAM gafortran
+  USE GA_commons
+  NAMELIST /ga/ nichflg
+  READ (23, nml=ga)
+END PROGRAM gafortran
+
+! { dg-final { cleanup-modules "ga_commons" } }