12345678910111213141516171819202122232425262728 |
- ! 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
|