* resolve.c (resolve_symbol): Initialize constructor_expr to NULL.

From-SVN: r110611

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 2ea8316293a03fc0fb0be9ffb7b0b378c5dc87c2..971a3699290e4eb52f7537ce18a8406abb719b8b 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2006-02-05  Jakub Jelinek  <jakub@redhat.com>
+
+       * resolve.c (resolve_symbol): Initialize constructor_expr to NULL.
+
 2006-02-04  Thomas Koenig  <Thomas.Koenig@online.de>
 
        PR fortran/25075

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 3767992bbb034e31e3afc4fe999ea73159c1298d..474030b1e710cbab9a83962e05089d172e242224 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -4863,6 +4863,7 @@ resolve_symbol (gfc_symbol * sym)
        specification-part of a module and does not have the ALLOCATABLE
        or POINTER attribute, the object shall have the SAVE attribute."  */
 
+      constructor_expr = NULL;
       if (sym->ts.type == BT_DERIVED && !(sym->value || flag))
         constructor_expr = gfc_default_initializer (&sym->ts);