1! { dg-do run }
2!
3! PR middle-end/63247
4
5program test
6  implicit none
7
8  integer(kind=2) a(4)
9
10  a = 10;
11
12  !$acc parallel copy(a(2:4))
13  a(2) = 52
14  a(3) = 53
15  a(4) = 54
16  !$acc end parallel
17
18  if (a(1) .ne. 10) STOP 1
19  if (a(2) .ne. 52) STOP 2
20  if (a(3) .ne. 53) STOP 3
21  if (a(4) .ne. 54) STOP 4
22
23end program test
24