[Bug fortran/69499] [F03] ICE-on-invalid on combining select type with wrong statement

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

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

--- Comment #3 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de> 
---
Yet another example :

$ cat z4.f90
module m
   class(*) :: z
   select type (x => z)
end