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