From: Paul-Antoine Arras <parras@baylibre.com>
Date: Fri, 31 Jan 2025 10:41:47 +0000 (+0100)
Subject: OpenMP/Fortran: Add missing pop_state in parse_omp_dispatch [PR118714]
X-Git-Tag: basepoints/gcc-16~2246
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=af51fe9593ec0e9373f8a453bab2129a48193a44;p=thirdparty%2Fgcc.git

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.
---

diff --git a/gcc/fortran/parse.cc b/gcc/fortran/parse.cc
index 00cd23d7729..5094d9d3ead 100644
--- a/gcc/fortran/parse.cc
+++ b/gcc/fortran/parse.cc
@@ -6375,7 +6375,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