* module.c (mio_f2k_derived): Initialize cur.

From-SVN: r148144
This commit is contained in:
Alexandre Oliva 2009-06-03 19:42:57 +00:00 committed by Alexandre Oliva
parent 19d892fdb3
commit c75b7ed799
2 changed files with 5 additions and 1 deletions

View 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

View 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;