[Bug fortran/95828] New: ICE in resolve_select_rank, at fortran/resolve.c:9774

[gs...@t-online.de]

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

            Bug ID: 95828
           Summary: ICE in resolve_select_rank, at fortran/resolve.c:9774
           Product: gcc
           Version: 11.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gs...@t-online.de
  Target Milestone: ---

Happens between name length 58 (ok) and 59 (ICE) :


$ cat z1_58.f90
module m234567890123456789012345678901234567890123456789012345678
   type t234567890123456789012345678901234567890123456789012345678
   end type
contains
   subroutine s234567890123456789012345678901234567890123456789012345678 &
      (x234567890123456789012345678901234567890123456789012345678)
      type(t234567890123456789012345678901234567890123456789012345678) :: &
           x234567890123456789012345678901234567890123456789012345678(..)
      select rank (y234567890123456789012345678901234567890123456789012345678 &
        => x234567890123456789012345678901234567890123456789012345678)
      rank (2)
      rank (3)
      rank default
      end select
   end
end


$ cat z1_59.f90
module m2345678901234567890123456789012345678901234567890123456789
   type t2345678901234567890123456789012345678901234567890123456789
   end type
contains
   subroutine s2345678901234567890123456789012345678901234567890123456789 &
      (x2345678901234567890123456789012345678901234567890123456789)
      type(t2345678901234567890123456789012345678901234567890123456789) :: &
           x2345678901234567890123456789012345678901234567890123456789(..)
      select rank (y2345678901234567890123456789012345678901234567890123456789
&
        => x2345678901234567890123456789012345678901234567890123456789)
      rank (2)
      rank (3)
      rank default
      end select
   end
end


$ cat z1_63.f90
module m23456789012345678901234567890123456789012345678901234567890123
   type t23456789012345678901234567890123456789012345678901234567890123
   end type
contains
   subroutine s23456789012345678901234567890123456789012345678901234567890123 &
      (x23456789012345678901234567890123456789012345678901234567890123)
      type(t23456789012345678901234567890123456789012345678901234567890123) ::
&
           x23456789012345678901234567890123456789012345678901234567890123(..)
      select rank
(y23456789012345678901234567890123456789012345678901234567890123 &
        => x23456789012345678901234567890123456789012345678901234567890123)
      rank (2)
      rank (3)
      rank default
      end select
   end
end


$ gfortran-11-20200621 -c z1_58.f90
$
$ gfortran-11-20200621 -c z1_59.f90
f951: internal compiler error: Segmentation fault
0xbce57f crash_signal
        ../../gcc/toplev.c:328
0x6cb511 resolve_select_rank
        ../../gcc/fortran/resolve.c:9774
0x6cb511 gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:11973
0x6cc6f7 resolve_codes
        ../../gcc/fortran/resolve.c:17257
0x6cc62e resolve_codes
        ../../gcc/fortran/resolve.c:17240
0x6cc7be gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.c:17292
0x6b46f2 gfc_parse_file()
        ../../gcc/fortran/parse.c:6448
0x70098f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:212