From: aoliva <aoliva@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 3 Jun 2009 19:42:57 +0000 (+0000)
Subject: * module.c (mio_f2k_derived): Initialize cur.
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=15880c04dcc07c647ce788b6eb73089ac6d85835;p=thirdparty%2Fgcc.git

* 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 533ac20a3372..56530417fd5c 100644
--- 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 82a41996ca45..5bd7c27eea54 100644
--- 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;