OSDN Git Service

* module.c (mio_f2k_derived): Initialize cur.
authoraoliva <aoliva@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 3 Jun 2009 19:42:57 +0000 (19:42 +0000)
committeraoliva <aoliva@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 3 Jun 2009 19:42:57 +0000 (19:42 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148144 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/module.c

index 533ac20..5653041 100644 (file)
@@ -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
index 82a4199..5bd7c27 100644 (file)
@@ -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;