gcc/testsuite/gfortran.dg/coarray/ptr_comp_4.f08


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

! { dg-do run }

! Same like coarray/alloc_comp_5 but for pointer comp.

program Jac
  type Domain
    integer :: n=64
    integer, pointer :: 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%endsi)
  deallocate(D)
end program