1! { dg-do run }
2
3program Jac
4  type Domain
5    integer :: n=64
6    integer,allocatable :: endsi(:)
7  end type
8  type(Domain),allocatable :: D[:,:,:]
9
10  allocate(D[2,2,*])
11  allocate(D%endsi(2), source = 0)
12  ! No caf-runtime call needed her.
13  D%endsi(2) = D%n
14  if (any(D%endsi /= [ 0, 64])) error stop
15  deallocate(D)
16end program
17
18