* module.c (mio_f2k_derived): Initialize op.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154277 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 19e4a29..bfdee68 100644 (file)
--- 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 b2ad6ec..43acd45 100644 (file)
--- 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);