[Bug fortran/54435] [4.7/4.8 Regression] ICE with SELECT TYPE on a non-CLASS object

["janus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2012-08-31
     Ever Confirmed|0                           |1

--- Comment #6 from janus at gcc dot gnu.org 2012-08-31 14:58:28 UTC ---
(In reply to comment #3)
> Though, the error message of 4.6 is not really that helpful:
> 
>   end select type
>                  1
> Error: Syntax error in END SELECT statement at (1)

Well, it's helpful in that it spots a syntax error in the test case: The
correct form is END SELECT.

If ones fixes the test case in this respect ...

subroutine foo(x)
  integer :: x
  select type (x)
  end select
end

... then it is rejected by the patch in comment 5 with the correct error
message:

  select type (x)
                 1   
Error: Selector shall be polymorphic in SELECT TYPE statement at (1)


I'll start a regtest of the the patch now ...