[Bug fortran/69498] New: 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

            Bug ID: 69498
           Summary: ICE on disjunct cases with displaced or incomplete
                    embedded statement
           Product: gcc
           Version: 6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

Similar to pr69497, with an incomplete or displaced embedded statement.
Different error messages, and sometimes depending on used compile options.
Yes, these snippets are weird.


$ cat z1.f90
function f()
   interface
   external f
   end interface
end


$ cat z2.f90
program p
   type t
   submodule (m) sm
   end type
end


$ gfortran-6 -c z1.f90
f951: internal compiler error: in gfc_release_symbol, at fortran/symbol.c:2760


$ gfortran-5.3.1 -c z1.f90
(null):0: confused by earlier errors, bailing out


$ gfortran-4.9.0 -c z1.f90
f951: internal compiler error: in gfc_release_symbol, at fortran/symbol.c:2545


Thematically related to pr69497.