diff --git a/gcc/fortran/parse.cc b/gcc/fortran/parse.cc
index 00cd23d77299d4dd0e3a60b0a5c8a895f428595e..5094d9d3eadf6b0e120966df41a0baae213dc575 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