* module.c (mio_f2k_derived): Initialize cur.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148144 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 533ac20a337201e6e84c28c1415aacdcb605ca29..56530417fd5c294c1f48b0c87c9e9c24932a825b 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2009-06-03  Alexandre Oliva  <aoliva@redhat.com>
+
+       * module.c (mio_f2k_derived): Initialize cur.
+
 2009-06-01  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/40309

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index 82a41996ca454d4ef07f2f896c1f4ce3945a3c73..5bd7c27eea54146a557ca421cd5082dc0b8b01f4 100644 (file)
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -3340,7 +3340,7 @@ mio_f2k_derived (gfc_namespace *f2k)
       f2k->finalizers = NULL;
       while (peek_atom () != ATOM_RPAREN)
        {
-         gfc_finalizer *cur;
+         gfc_finalizer *cur = NULL;
          mio_finalizer (&cur);
          cur->next = f2k->finalizers;
          f2k->finalizers = cur;