[Bug fortran/69499] New: ICE on combining select type with wrong statement

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

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

            Bug ID: 69499
           Summary: ICE on combining select type with wrong statement
           Product: gcc
           Version: 6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fort...@t-online.de
  Target Milestone: ---

A wrong combination of select type with another statement
(thematically related to pr69497)


$ cat z1.f90
function f(x)
   select type (x)
   select type (x)
   end select
end


$ cat z2.f90
function f(x)
   select type (x)
   type t
   end select
end


$ cat z3.f90
function f(x)
   select type (x)
   end subroutine
end


$ gfortran-6 -c z1.f90
f951: internal compiler error: Segmentation fault