[Bug fortran/102334] New: [12 Regression] ICE in trans_associate_var, at fortran/trans-stmt.c:1794

["gscfq@t-online.de" <gcc-bugzilla@gcc.gnu.org>]

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

            Bug ID: 102334
           Summary: [12 Regression] ICE in trans_associate_var, at
                    fortran/trans-stmt.c:1794
           Product: gcc
           Version: 12.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Changed between 20210613 and 20210620 :


$ cat z1.f90
subroutine s(x)
   class(*), allocatable, intent(out), target :: x(..)
   select rank (x)
   rank (1)
   end select
end


$ cat z4.f90
program p
   type t
   end type
contains
   subroutine s(x)
      class(t), allocatable, target, intent(out) :: x(..)
      select rank (x)
      rank (1)
      end select
   end
end


$ gfortran-12-20210905 -c z1.f90
z1.f90:1:12:

    1 | subroutine s(x)
      |            1
internal compiler error: Segmentation fault
0xd09e4f crash_signal
        ../../gcc/toplev.c:328
0x88641e trans_associate_var
        ../../gcc/fortran/trans-stmt.c:1794
0x88d3a1 gfc_trans_block_construct(gfc_code*)
        ../../gcc/fortran/trans-stmt.c:2313
0x816407 trans_code
        ../../gcc/fortran/trans.c:2014
0x88ebd5 gfc_trans_select_rank_cases
        ../../gcc/fortran/trans-stmt.c:3733
0x88ebd5 gfc_trans_select_rank(gfc_code*)
        ../../gcc/fortran/trans-stmt.c:3788
0x8164a7 trans_code
        ../../gcc/fortran/trans.c:2038
0x88d32f gfc_trans_block_construct(gfc_code*)
        ../../gcc/fortran/trans-stmt.c:2306
0x816407 trans_code
        ../../gcc/fortran/trans.c:2014
0x83cb64 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6918
0x7c2ee6 translate_all_program_units
        ../../gcc/fortran/parse.c:6569
0x7c2ee6 gfc_parse_file()
        ../../gcc/fortran/parse.c:6838
0x80f57f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:216