mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-04 01:50:38 +00:00
22 lines
302 B
Fortran
22 lines
302 B
Fortran
! PR middle-end/63247
|
|
|
|
program test
|
|
implicit none
|
|
|
|
integer(kind=2) a(4)
|
|
|
|
a = 10;
|
|
|
|
!$acc parallel copy(a(2:4))
|
|
a(2) = 52
|
|
a(3) = 53
|
|
a(4) = 54
|
|
!$acc end parallel
|
|
|
|
if (a(1) .ne. 10) STOP 1
|
|
if (a(2) .ne. 52) STOP 2
|
|
if (a(3) .ne. 53) STOP 3
|
|
if (a(4) .ne. 54) STOP 4
|
|
|
|
end program test
|