trans-common.c (create_common): Initialize 'field_init'.

2007-06-12  Paul Thomas  <pault@gcc.gnu.org>

	* trans-common.c (create_common): Initialize 'field_init'.

From-SVN: r125640

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index bb56decbe8b18b1242f629d659ca733729849628..6a5f0cb7f7a763aebaf2ccdd1208dcd3a8802c2d 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2007-06-12  Paul Thomas  <pault@gcc.gnu.org>
+
+       * trans-common.c (create_common): Initialize 'field_init'.
+
 2007-06-12  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/29786

diff --git a/gcc/fortran/trans-common.c b/gcc/fortran/trans-common.c
index e39ec5962a07b9548f824dd1b5342c41b49a1c8c..afcbb1c52c055aed87fc21c4a816bf62fde34752 100644 (file)
--- a/gcc/fortran/trans-common.c
+++ b/gcc/fortran/trans-common.c
@@ -528,7 +528,7 @@ create_common (gfc_common_head *com, segment_info *head, bool saw_equiv)
   tree union_type;
   tree *field_link;
   tree field;
-  tree field_init;
+  tree field_init = NULL_TREE;
   record_layout_info rli;
   tree decl;
   bool is_init = false;