[Bug fortran/95541] ICE in gfc_get_dataptr_offset, at fortran/trans-array.c:6909

[gscfq@t-online.de]

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

G. Steinmetz <gscfq@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code

--- Comment #1 from G. Steinmetz <gscfq@t-online.de> ---

This variant works :


$ cat z2.f90
program p
   type t(n)
      integer, len :: n
      integer :: a(n)
   end type
   type(t(3)) :: x(2)
   x(1)%a = [1, 2, 3]
   x(2)%a = [4, 5, 6]
   associate (y => x(2)%a(3))
      print *, y
   end associate
   associate (y => x(2)%a)
      print *, y
   end associate
end


$ gfortran-11-20200531 z2.f90 && ./a.out
           6
           4           5           6
$