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/fortran/parse.c | |
| 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/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 2 |
1 files changed, 1 insertions, 1 deletions
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; } |