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