re PR fortran/34907 (valgrind error indication from testsuite trans-types.c: gfc_type...

2008-01-22  Tobias Burnus  <burnus@net-b.de>

       PR fortran/34907
       * parse.c (parse_spec): Change = into ==.

From-SVN: r131728

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 72af9f03ca661b34a45d6738d80e5006f4737c56..fd6efa3dbba9bf179338e8248834ae8cfffb22a3 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-22  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/34907
+       * parse.c (parse_spec): Change = into ==.
+
 2008-01-22  Daniel Franke  <franke.daniel@gmail.com>
 
        PR fortran/34915

diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c
index e57e10df51df1ac341fd3fca25a9b355b0890081..64d8c332917196bc9dd10d62428dc8d57688f61d 100644 (file)
--- a/gcc/fortran/parse.c
+++ b/gcc/fortran/parse.c
@@ -2189,7 +2189,7 @@ loop:
 
       gfc_current_block ()->ts.kind = 0;
       /* Keep the derived type; if it's bad, it will be discovered later.  */
-      if (!(ts->type = BT_DERIVED && ts->derived))
+      if (!(ts->type == BT_DERIVED && ts->derived))
         ts->type = BT_UNKNOWN;
     }