https://gcc.gnu.org/g:da1ae9430415ccdbcc0095cab218d3af68ce735f
commit da1ae9430415ccdbcc0095cab218d3af68ce735f
Author: Paul-Antoine Arras <par...@baylibre.com>
Date: Fri Jan 31 11:41:47 2025 +0100
OpenMP/Fortran: Add missing pop_state in parse_omp_dispatch [PR118714]
When the ST_NONE case is taken, the function returns immediately. Not
calling
pop_state causes a dangling pointer.
PR fortran/118714
gcc/fortran/ChangeLog:
* parse.cc (parse_omp_dispatch): Add missing pop_state.
(cherry picked from commit af51fe9593ec0e9373f8a453bab2129a48193a44)
Diff:
---
gcc/fortran/parse.cc | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/gcc/fortran/parse.cc b/gcc/fortran/parse.cc
index 2af580784c9d..409ce9c3e397 100644
--- a/gcc/fortran/parse.cc
+++ b/gcc/fortran/parse.cc
@@ -6408,7 +6408,10 @@ parse_omp_dispatch (void)
st = next_statement ();
if (st == ST_NONE)
- return st;
+ {
+ pop_state ();
+ return st;
+ }
if (st == ST_CALL || st == ST_ASSIGNMENT)
accept_statement (st);
else
