OSDN Git Service

* module.c (mio_f2k_derived): Use enumerator as initializer of
[pf3gnuchains/gcc-fork.git] / gcc / fortran / module.c
index 13c9b82..c72cac1 100644 (file)
@@ -3474,7 +3474,7 @@ mio_f2k_derived (gfc_namespace *f2k)
   else
     while (peek_atom () != ATOM_RPAREN)
       {
-       gfc_intrinsic_op op = 0; /* Silence GCC.  */
+       gfc_intrinsic_op op = GFC_INTRINSIC_BEGIN; /* Silence GCC.  */
 
        mio_lparen ();
        mio_intrinsic_op (&op);