[Bug fortran/56081] [4.7/4.8 Regression] Seg fault ICE on select with bad case

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-invalid-code
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2013-01-23
                 CC|                            |janus at gcc dot gnu.org
      Known to work|                            |4.6.4
            Summary|Seg fault ICE on select     |[4.7/4.8 Regression] Seg
                   |with bad case               |fault ICE on select with
                   |                            |bad case
     Ever Confirmed|0                           |1

--- Comment #3 from janus at gcc dot gnu.org 2013-01-23 08:30:34 UTC ---
Further reduction:

  implicit none
  integer :: a(4)
  select case(a)
  case (0)
  end select
end


gfortran 4.6.4 gives the correct error message:

  select case(a)
              1
Error: Argument of SELECT statement at (1) must be a scalar expression



For some reason this is not being triggered any more with 4.7 and trunk.