[Bug fortran/69498] ICE on disjunct cases with displaced or incomplete embedded statement

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

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

--- Comment #2 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
And one more exotic, sorry ...

$ cat z7.f90
program p
submodule (m) sm
submodule (m) sm


$ gfortran-6 -c z7.f90
f951: internal compiler error: in gfc_match_submodule, at fortran/module.c:748