[Bug fortran/107317] New: [10/11/12/13 Regression] ICE in emit_redzone_byte, at asan.cc:1508

[gscfq@t-online.de]

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

            Bug ID: 107317
           Summary: [10/11/12/13 Regression] ICE in emit_redzone_byte, at
                    asan.cc:1508
           Product: gcc
           Version: 13.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Started with r10 between 20190512 and 20190519,
with option -m32 and -fopenmp or -frecursive :


$ cat z1.f90
program p
   real :: a(1000000, 100, 2)
   call s(a(:, 1:200, :))
end


$ gfortran-13-20221016 -c z1.f90 -m32 -O2 -fsanitize=address -frecursive
z1.f90:3:15:

    3 |    call s(a(:, 1:200, :))
      |               1
Warning: Upper array reference at (1) is out of bounds (200 > 100) in dimension
2
z1.f90:1:9:

    1 | program p
      |         ^
Error: total size of local objects 2400000512 exceeds maximum 2147483392
during RTL pass: expand
z1.f90:1:9: internal compiler error: in emit_redzone_byte, at asan.cc:1508
0xf5c70e asan_redzone_buffer::emit_redzone_byte(long, unsigned char)
        ../../gcc/asan.cc:1508
0xf64786 asan_emit_stack_protection(rtx_def*, rtx_def*, unsigned int, long*,
tree_node**, int)
        ../../gcc/asan.cc:2003
0x9d9ba2 expand_used_vars
        ../../gcc/cfgexpand.cc:2376
0x9de182 execute
        ../../gcc/cfgexpand.cc:6664