Commit 2ddd2871 by Tobias Burnus Committed by Tobias Burnus

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

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

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

From-SVN: r131728
parent e94384db
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
......
......@@ -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;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment