re PR fortran/26224 (ICE in C$OMP SINGLE / END SINGLE COPYPRIVATE( ) block)

	PR fortran/26224
	* parse.c (parse_omp_do, parse_omp_structured_block): Call
	gfc_commit_symbols and gfc_warning_check.

	* gfortran.dg/gomp/pr26224.f: New test.

From-SVN: r111153

gcc/fortran/ChangeLog

 2006-02-16  Jakub Jelinek  <jakub@redhat.com>
 
+	PR fortran/26224
+	* parse.c (parse_omp_do, parse_omp_structured_block): Call
+	gfc_commit_symbols and gfc_warning_check.
+
 	* openmp.c (resolve_omp_clauses): Add a dummy case label to workaround
 	PR middle-end/26316.
 

gcc/fortran/parse.c

@@ -2348,6 +2348,8 @@ parse_omp_do (gfc_statement omp_st)
       else
 	gcc_assert (new_st.op == EXEC_NOP);
       gfc_clear_new_st ();
+      gfc_commit_symbols ();
+      gfc_warning_check ();
       st = next_statement ();
     }
   return st;
@@ -2548,6 +2550,8 @@ parse_omp_structured_block (gfc_statement omp_st, bool workshare_stmts_only)
     }
 
   gfc_clear_new_st ();
+  gfc_commit_symbols ();
+  gfc_warning_check ();
   pop_state ();
 }
 

gcc/testsuite/ChangeLog

+2006-02-16  Jakub Jelinek  <jakub@redhat.com>
+
+	PR fortran/26224
+	* gfortran.dg/gomp/pr26224.f: New test.
+
 2006-02-16  Victor Kaplansky  <victork@il.ibm.com>
 
 	PR tree-opt/25918

gcc/testsuite/gfortran.dg/gomp/pr26224.f

+C PR fortran/26224
+C { dg-do compile }
+
+      PROGRAM PR26224
+      INTEGER FOO
+C$OMP SINGLE
+C$OMP END SINGLE COPYPRIVATE (FOO, BAR)
+      END