! { dg-do compile } | |
! { dg-options "-fcoarray=lib" } | |
! | |
! PR fortran/104330 - ICE in gfc_simplify_image_index | |
! Contributed by G.Steinmetz | |
program p | |
implicit none | |
type t | |
end type t | |
class(*), allocatable :: x[:] | |
class(t), allocatable :: y[:] | |
type(t), allocatable :: z[:] | |
allocate (real :: x[*]) | |
print *, image_index(x, [1]) | |
allocate (t :: y[*]) | |
print *, image_index(y, [1]) | |
allocate (t :: z[*]) | |
print *, image_index(z, [1]) | |
end |