OSDN Git Service

* module.c (mio_f2k_derived): Use enumerator as initializer of
authoramylaar <amylaar@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 20 Jan 2010 05:39:12 +0000 (05:39 +0000)
committeramylaar <amylaar@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 20 Jan 2010 05:39:12 +0000 (05:39 +0000)
enum variable.

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

gcc/fortran/ChangeLog
gcc/fortran/module.c

index 1c29ff4..d3909e9 100644 (file)
@@ -1,3 +1,8 @@
+2010-01-20  Joern Rennecke  <amylaar@spamcop.net>
+
+       * module.c (mio_f2k_derived): Use enumerator as initializer of
+       enum variable.
+
 2010-01-19  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/42804
 2010-01-19  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/42804
index 13c9b82..c72cac1 100644 (file)
@@ -3474,7 +3474,7 @@ mio_f2k_derived (gfc_namespace *f2k)
   else
     while (peek_atom () != ATOM_RPAREN)
       {
   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);
 
        mio_lparen ();
        mio_intrinsic_op (&op);