[Bug fortran/56052] [4.7/4.8 Regression] ICE in omp_add_variable, at gimplify.c:5606

[Joost.VandeVondele at mat dot ethz.ch]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=56052

Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |Joost.VandeVondele at mat
                   |                            |dot ethz.ch

--- Comment #3 from Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch> 2013-01-20 16:56:23 UTC ---
reduced:

subroutine middle(args)
  type args_t
  end type
  type, extends(args_t) :: scan_args_t
  end type
  class(args_t),intent(inout) :: args
  !$omp single
  select type (args)
    type is (scan_args_t)
  end select
  !$omp end single
end subroutine middle