https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65181
Tobias Burnus <burnus at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |openacc
CC| |burnus at gcc dot gnu.org
--- Comment #4 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Slightly stupid example which currently fails with:
sorry, unimplemented: target cannot support alloca.
x86_64-none-linux-gnu-accel-nvptx-none-gcc returned 1 exit status
call foo(10)
contains
subroutine foo(nn)
!$acc parallel
block
real :: array(nn), array2(10)
array = [(3*i,i=1,nn)]
!print *, array
!$acc loop gang private(array)
do i = 1, 10
array(i) = i
array2(i) = array(i)
end do
!print *, array
!print *, array2
end block
!$acc end parallel
end
end
