| ! Ensure that dummy arrays are transferred to the accelerator | |
| ! via an implicit pcopy. | |
| ! { dg-do run } | |
| program main | |
| integer, parameter :: n = 1000 | |
| integer :: a(n) | |
| integer :: i | |
| a(:) = -1 | |
| call dummy_array (a, n) | |
| do i = 1, n | |
| if (a(i) .ne. i) stop 1 | |
| end do | |
| end program main | |
| subroutine dummy_array (a, n) | |
| integer a(n) | |
| !$acc parallel loop num_gangs (100) gang | |
| do i = 1, n | |
| a(i) = i | |
| end do | |
| !$acc end parallel loop | |
| end subroutine |