blob: 3cf7eb5987da3a70d80786916d4aead058937209 [file] [log] [blame]
! { dg-do run }
program test
implicit none
integer, allocatable :: a1(:)
integer, allocatable :: b1(:)
integer, allocatable :: c1(:)
integer, allocatable :: b2(:,:)
integer, allocatable :: c3(:,:,:)
allocate (a1(5))
if (.not.allocated (a1)) STOP 49
a1 = 10
!$acc parallel copy(a1(1:5))
a1(1) = 1
a1(2) = 2
a1(3) = 3
a1(4) = 4
a1(5) = 5
!$acc end parallel
if (a1(1) .ne. 1) STOP 1
if (a1(2) .ne. 2) STOP 2
if (a1(3) .ne. 3) STOP 3
if (a1(4) .ne. 4) STOP 4
if (a1(5) .ne. 5) STOP 5
deallocate(a1)
allocate (a1(0:4))
if (.not.allocated (a1)) STOP 50
a1 = 10
!$acc parallel copy(a1(0:4))
a1(0) = 1
a1(1) = 2
a1(2) = 3
a1(3) = 4
a1(4) = 5
!$acc end parallel
if (a1(0) .ne. 1) STOP 6
if (a1(1) .ne. 2) STOP 7
if (a1(2) .ne. 3) STOP 8
if (a1(3) .ne. 4) STOP 9
if (a1(4) .ne. 5) STOP 10
deallocate(a1)
allocate (b2(5,5))
if (.not.allocated (b2)) STOP 51
b2 = 11
!$acc parallel copy(b2(1:5,1:5))
b2(1,1) = 1
b2(2,2) = 2
b2(3,3) = 3
b2(4,4) = 4
b2(5,5) = 5
!$acc end parallel
if (b2(1,1) .ne. 1) STOP 11
if (b2(2,2) .ne. 2) STOP 12
if (b2(3,3) .ne. 3) STOP 13
if (b2(4,4) .ne. 4) STOP 14
if (b2(5,5) .ne. 5) STOP 15
deallocate(b2)
allocate (b2(0:4,0:4))
if (.not.allocated (b2)) STOP 52
b2 = 11
!$acc parallel copy(b2(0:4,0:4))
b2(0,0) = 1
b2(1,1) = 2
b2(2,2) = 3
b2(3,3) = 4
b2(4,4) = 5
!$acc end parallel
if (b2(0,0) .ne. 1) STOP 16
if (b2(1,1) .ne. 2) STOP 17
if (b2(2,2) .ne. 3) STOP 18
if (b2(3,3) .ne. 4) STOP 19
if (b2(4,4) .ne. 5) STOP 20
deallocate(b2)
allocate (c3(5,5,5))
if (.not.allocated (c3)) STOP 53
c3 = 12
!$acc parallel copy(c3(1:5,1:5,1:5))
c3(1,1,1) = 1
c3(2,2,2) = 2
c3(3,3,3) = 3
c3(4,4,4) = 4
c3(5,5,5) = 5
!$acc end parallel
if (c3(1,1,1) .ne. 1) STOP 21
if (c3(2,2,2) .ne. 2) STOP 22
if (c3(3,3,3) .ne. 3) STOP 23
if (c3(4,4,4) .ne. 4) STOP 24
if (c3(5,5,5) .ne. 5) STOP 25
deallocate(c3)
allocate (c3(0:4,0:4,0:4))
if (.not.allocated (c3)) STOP 54
c3 = 12
!$acc parallel copy(c3(0:4,0:4,0:4))
c3(0,0,0) = 1
c3(1,1,1) = 2
c3(2,2,2) = 3
c3(3,3,3) = 4
c3(4,4,4) = 5
!$acc end parallel
if (c3(0,0,0) .ne. 1) STOP 26
if (c3(1,1,1) .ne. 2) STOP 27
if (c3(2,2,2) .ne. 3) STOP 28
if (c3(3,3,3) .ne. 4) STOP 29
if (c3(4,4,4) .ne. 5) STOP 30
deallocate(c3)
allocate (a1(5))
if (.not.allocated (a1)) STOP 55
allocate (b1(5))
if (.not.allocated (b1)) STOP 56
allocate (c1(5))
if (.not.allocated (c1)) STOP 57
a1 = 10
b1 = 3
c1 = 7
!$acc parallel copyin(a1(1:5)) create(c1(1:5)) copyout(b1(1:5))
c1(1) = a1(1)
c1(2) = a1(2)
c1(3) = a1(3)
c1(4) = a1(4)
c1(5) = a1(5)
b1(1) = c1(1)
b1(2) = c1(2)
b1(3) = c1(3)
b1(4) = c1(4)
b1(5) = c1(5)
!$acc end parallel
if (b1(1) .ne. 10) STOP 31
if (b1(2) .ne. 10) STOP 32
if (b1(3) .ne. 10) STOP 33
if (b1(4) .ne. 10) STOP 34
if (b1(5) .ne. 10) STOP 35
deallocate(a1)
deallocate(b1)
deallocate(c1)
allocate (a1(0:4))
if (.not.allocated (a1)) STOP 58
allocate (b1(0:4))
if (.not.allocated (b1)) STOP 59
allocate (c1(0:4))
if (.not.allocated (c1)) STOP 60
a1 = 10
b1 = 3
c1 = 7
!$acc parallel copyin(a1(0:4)) create(c1(0:4)) copyout(b1(0:4))
c1(0) = a1(0)
c1(1) = a1(1)
c1(2) = a1(2)
c1(3) = a1(3)
c1(4) = a1(4)
b1(0) = c1(0)
b1(1) = c1(1)
b1(2) = c1(2)
b1(3) = c1(3)
b1(4) = c1(4)
!$acc end parallel
if (b1(0) .ne. 10) STOP 36
if (b1(1) .ne. 10) STOP 37
if (b1(2) .ne. 10) STOP 38
if (b1(3) .ne. 10) STOP 39
if (b1(4) .ne. 10) STOP 40
deallocate(a1)
deallocate(b1)
deallocate(c1)
allocate (a1(5))
if (.not.allocated (a1)) STOP 61
a1 = 10
!$acc parallel copy(a1(2:3))
a1(2) = 2
a1(3) = 3
!$acc end parallel
if (a1(1) .ne. 10) STOP 41
if (a1(2) .ne. 2) STOP 42
if (a1(3) .ne. 3) STOP 43
if (a1(4) .ne. 10) STOP 44
if (a1(5) .ne. 10) STOP 45
deallocate(a1)
end program test