[Bug fortran/104330] ICE in gfc_simplify_image_index, at fortran/simplify.cc:8294

[gscfq--- via Gcc-bugs]

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

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

Better test cases (valid) instead of accidentally invalid z2.f90 :


$ cat zz4.f90
program p
   class(*), allocatable :: x[:]
   allocate (real :: x[*])
   print *, image_index(x, [1])
end


$ cat zz5.f90
program p
   class(*), allocatable :: x[:,:]
   allocate (real :: x[8,*])
   print *, image_index(x, [5,3])
end


$ cat zz7.f90
program p
   type t
   end type
   class(*), allocatable :: x[:,:,:]
   allocate (t :: x[8,8,*])
   print *, image_index(x, [3,2,1])
end