! { dg-do run }

program Jac
  type Domain
    integer :: n=64
    integer,allocatable :: endsi(:)
  end type
  type(Domain),allocatable :: D[:,:,:]

  allocate(D[2,2,*])
  allocate(D%endsi(2), source = 0)
  ! No caf-runtime call needed her.
  D%endsi(2) = D%n
  if (any(D%endsi /= [ 0, 64])) error stop
  deallocate(D)
end program