[Bug fortran/67525] ICE on select type with improper selector

[gerhard.steinmetz.fortran@t-online.de]

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
Whereas :

$ cat y1.f90
subroutine f(x)
   select type (x)
   end select
end

$ gfortran -c y1.f90
y1.f90:2:18:

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