| ! { dg-do run } | |
| ! | |
| ! 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 |