[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 #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
$ cat z3.f90
program p
   if (2 > 1) then
   submodule (m) sm
   end if
end


$ gfortran-6 -c z3.f90
f951: internal compiler error: gfc_get_default_type(): Bad symbol ...