diff options
| author | Thomas Schwinge <tschwinge@baylibre.com> | 2024-04-10 10:55:10 +0200 |
|---|---|---|
| committer | Thomas Schwinge <tschwinge@baylibre.com> | 2024-04-10 10:55:10 +0200 |
| commit | e02c6e686bd345089480237d58f2d153cbcc463c (patch) | |
| tree | 5a61030629450dd778b1beb356c10a208a6aeb78 /gcc/fortran/parse.cc | |
| parent | 0de2032ecf451e9fed2ad16c3ce771663fbc37a5 (diff) | |
| parent | 4c2169d2f4061e72e1e61e9a175d16f7ff50f5c0 (diff) | |
| download | gcc-e02c6e686bd345089480237d58f2d153cbcc463c.zip gcc-e02c6e686bd345089480237d58f2d153cbcc463c.tar.gz gcc-e02c6e686bd345089480237d58f2d153cbcc463c.tar.bz2 | |
Merge commit 'ceed844b5284aeabbdfe25ccf099e7ebeeb14a9b^' into HEAD
Diffstat (limited to 'gcc/fortran/parse.cc')
| -rw-r--r-- | gcc/fortran/parse.cc | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/parse.cc b/gcc/fortran/parse.cc index 98a04e7..a4fda6e 100644 --- a/gcc/fortran/parse.cc +++ b/gcc/fortran/parse.cc @@ -4038,6 +4038,7 @@ loop: default: gfc_error ("Unexpected %s statement in INTERFACE block at %C", gfc_ascii_statement (st)); + current_interface = save; reject_statement (); gfc_free_namespace (gfc_current_ns); goto loop; |