blob: 4ef16187c841864c8266ad125d245a323767a75e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! Extracted from 'libgomp.oacc-fortran/privatized-ref-2.f90'.
! { dg-additional-options "-O1 -fstack-arrays -fipa-pta" }
program main
implicit none (type, external)
integer :: j
integer, allocatable :: A(:)
A = [(3*j, j=1, 10)]
call foo (A, size(A))
deallocate (A)
contains
subroutine foo (array, nn)
integer :: i, nn
integer :: array(nn)
!$acc parallel copyout(array)
array = [(-i, i = 1, nn)]
!$acc end parallel
end subroutine foo
end
|