[gcc r15-7307] OpenMP/Fortran: Add missing pop_state in parse_omp_dispatch [PR118714]

[Paul-Antoine Arras via Gcc-cvs]

https://gcc.gnu.org/g:af51fe9593ec0e9373f8a453bab2129a48193a44

commit r15-7307-gaf51fe9593ec0e9373f8a453bab2129a48193a44
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.

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 00cd23d77299..5094d9d3eadf 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