[Bug fortran/95613] ICE in main_block_label, at tree-cfg.c:1455

[gscfq@t-online.de]

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

--- Comment #3 from G. Steinmetz <gscfq@t-online.de> ---

And for the sake of completeness, with another incarnation of goto :

$ cat zz2.f90   # etc.
program p
   select case (0)
 2 end select
   stop
   call s(*2)
end