From: Alexandre Oliva <aoliva@redhat.com>
Date: Wed, 18 Nov 2009 06:01:56 +0000 (+0000)
Subject: * module.c (mio_f2k_derived): Initialize op.
X-Git-Tag: releases/gcc-4.5.0~2301
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=0c4d91b9a16cc467dbd70008f78a53929e2d42a3;p=thirdparty%2Fgcc.git

* module.c (mio_f2k_derived): Initialize op.

From-SVN: r154277
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 19e4a293367f..bfdee68f0d34 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2009-11-18  Alexandre Oliva  <aoliva@redhat.com>
+
+	* module.c (mio_f2k_derived): Initialize op.
+
 2009-11-15  Janus Weil  <janus@gcc.gnu.org>
 
 	PR fortran/42048
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index b2ad6ecc4778..43acd450062b 100644
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -3469,7 +3469,7 @@ mio_f2k_derived (gfc_namespace *f2k)
   else
     while (peek_atom () != ATOM_RPAREN)
       {
-	gfc_intrinsic_op op;
+	gfc_intrinsic_op op = 0; /* Silence GCC.  */
 
 	mio_lparen ();
 	mio_intrinsic_op (&op);