[Bug fortran/66549] [5/6 Regression] ICE on valid in OMP parallel region

[mikael at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66549

--- Comment #3 from Mikael Morin <mikael at gcc dot gnu.org> ---
(In reply to Jakub Jelinek from comment #2)
> r221586 in particular.
There is no openmp change in that revision. :-/

--- comment_0.f90.003t.original.good    2015-06-17 21:29:00.667012376 +0200
+++ comment_0.f90.003t.original.bad     2015-06-17 21:31:28.013012840 +0200
@@ -6,7 +6,7 @@

 clwf ()
 {
-  #pragma omp parallel
+  #pragma omp parallel private(i)
     {
       {
         struct __class_smfa_Sgc_t sg_.0;
@@ -20,7 +20,6 @@

 cvn (struct __class_smfa_Sgc_t & restrict sg_, struct array1_real(kind=8) &
restrict vn)
 {
-  integer(kind=4) i;
   integer(kind=8) ubound.1;
   integer(kind=8) stride.2;
   integer(kind=8) offset.3;