1! { dg-do compile } 
2! { dg-additional-options "-fdump-tree-original" } 
3
4program test
5  implicit none
6  integer :: i
7
8  !$acc declare copy(i)
9contains
10  real function foo(n)
11    integer, value :: n
12    BLOCK
13       integer i
14       !$acc declare copy(i)
15    END BLOCK
16  end function foo
17end program test
18! { dg-prune-output "unimplemented" }
19! { dg-final { scan-tree-dump-times "pragma acc declare map\\(force_tofrom:i\\)" 2 "original" } } 
20! { dg-final { cleanup-tree-dump "original" } } 
21