do seq loop

Hi everyone,

I’m using Accelerator on a MD code. But I found that the result is somehow not updated at each timestep.
I simplified my code as following:

program seqloop 

implicit none 
integer::i,j,k,f(10) 
integer::ff(10) 
ff=0 
f=0 

!$acc data region copyin(f),copy(ff)
!$acc region 

!$acc do seq 
do k=1,2 


   do j=1,10 
      ff(j)=f(j)*2 
   end do 
  
   do i=1,10 
      f(i)=i        
   end do 
    

end do 

!$acc end region 
!$acc end data region


write(*,*)ff 

end program

The output of “ff” is a zero vector. However, if i change the “k loop” to “do host”, the result is correct.

Can anyone point out my mistake in the code?
Thanks.

I got a reply from PGI technical support by email.
This problem is fixed in the 10.8 release.
Thanks for all of your help and concern.