diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2017-10-03 13:49:39 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2017-10-03 13:49:39 +0000 |
| commit | 4f8d1d3268c6c1fe336e0cf7587355cd2eb671f0 (patch) | |
| tree | 636452e30c1091e4213a88fcd6ebc60ca552fa14 /gcc/fortran/io.c | |
| parent | 3b7511f9219038110e5b464f197266564e2f8c76 (diff) | |
| download | gcc-4f8d1d3268c6c1fe336e0cf7587355cd2eb671f0.zip gcc-4f8d1d3268c6c1fe336e0cf7587355cd2eb671f0.tar.gz gcc-4f8d1d3268c6c1fe336e0cf7587355cd2eb671f0.tar.bz2 | |
io.c (match_wait_element): Correctly match END and EOR tags.
2017-10-03 Thomas Koenig <tkoenig@gcc.gnu.org>
* io.c (match_wait_element): Correctly match END and EOR tags.
* dump-parse-tree.c (show_code_node): Handle EXEC_WAIT.
From-SVN: r253381
Diffstat (limited to 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 2c3d761..af465dc 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -4641,8 +4641,8 @@ match_wait_element (gfc_wait *wait) m = match_etag (&tag_unit, &wait->unit); RETM m = match_ltag (&tag_err, &wait->err); - RETM m = match_ltag (&tag_end, &wait->eor); - RETM m = match_ltag (&tag_eor, &wait->end); + RETM m = match_ltag (&tag_end, &wait->end); + RETM m = match_ltag (&tag_eor, &wait->eor); RETM m = match_etag (&tag_iomsg, &wait->iomsg); if (m == MATCH_YES && !check_char_variable (wait->iomsg)) return MATCH_ERROR; |