[Bug fortran/95709] New: [9/10/11 Regression] ICE in gfc_resolve_code, at fortran/resolve.c:11807

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

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

            Bug ID: 95709
           Summary: [9/10/11 Regression] ICE in gfc_resolve_code, at
                    fortran/resolve.c:11807
           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: ---

Affects versions down to r8 (before 20180525), r7 rejects it :


$ cat z1.f90
program p
   integer, parameter :: i(1) = 1
   goto i(1)
 1 continue
end


$ cat z2.f90
program p
   integer, parameter :: i(0) = 0
   goto i(1)
end


$ cat z3.f90
program p
   integer, parameter :: i(0) = 0
   goto i(0)
   goto i(1)
   goto i(-1)
   goto i(i(0))
end


$ cat z4.f90
program p
   integer, parameter :: i(0) = 0
   integer :: j
   goto i%kind
   goto j%kind
   goto j%kind, (1)
end


$ gfortran-11-20200614 -c z1.f90
z1.f90:3:12:

    3 |    goto i(1)
      |            1
Warning: Deleted feature: Assigned GOTO statement at (1)
f951: internal compiler error: Segmentation fault
0xbcdd2f crash_signal
        ../../gcc/toplev.c:328
0x6c9c8c gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:11807
0x6cc0e7 resolve_codes
        ../../gcc/fortran/resolve.c:17257
0x6cc1ae gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.c:17292
0x6b42ec resolve_all_program_units
        ../../gcc/fortran/parse.c:6245
0x6b42ec gfc_parse_file()
        ../../gcc/fortran/parse.c:6492
0x70036f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:212