diff options
| author | Tobias Burnus <burnus@net-b.de> | 2008-01-22 17:43:20 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2008-01-22 17:43:20 +0100 |
| commit | 2ddd2871085a3bf35e2429390272301d8c6ab851 (patch) | |
| tree | ca0a65d2720d8b3c120439027ee1c31495d93fb9 /gcc | |
| parent | e94384dbd64042460a3f03dd50b8a835409ec7f7 (diff) | |
| download | gcc-2ddd2871085a3bf35e2429390272301d8c6ab851.zip gcc-2ddd2871085a3bf35e2429390272301d8c6ab851.tar.gz gcc-2ddd2871085a3bf35e2429390272301d8c6ab851.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/parse.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 72af9f03..fd6efa3 100644 --- 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 e57e10d..64d8c33 100644 --- 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; } |