| ! { 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 | |