diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2021-06-16 22:00:52 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2021-06-16 22:00:52 +0200 |
| commit | d117f992d81b783aa7cbff4c9fde9b96b70a93ed (patch) | |
| tree | a4460d7256782b6ad7c8c078f0bca319cbfc34f7 /gcc/fortran/match.c | |
| parent | 72e3d92178b44a3722519ec68e72e307443bda70 (diff) | |
| download | gcc-d117f992d81b783aa7cbff4c9fde9b96b70a93ed.zip gcc-d117f992d81b783aa7cbff4c9fde9b96b70a93ed.tar.gz gcc-d117f992d81b783aa7cbff4c9fde9b96b70a93ed.tar.bz2 | |
Revert "Fortran - ICE in gfc_check_do_variable, at fortran/parse.c:4446"
This reverts commit 72e3d92178b44a3722519ec68e72e307443bda70.
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index d148de3..2946201 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -1409,7 +1409,7 @@ gfc_match_pointer_assignment (void) gfc_matching_procptr_assignment = 0; m = gfc_match (" %v =>", &lvalue); - if (m != MATCH_YES || !lvalue->symtree) + if (m != MATCH_YES) { m = MATCH_NO; goto cleanup; |