gcc/testsuite/gfortran.dg/goacc/declare-1.f95


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

! { dg-do compile } 
! { dg-additional-options "-fdump-tree-original" } 

program test
  implicit none
  integer :: i

  !$acc declare copy(i)
contains
  real function foo(n)
    integer, value :: n
    BLOCK
       integer i
       !$acc declare copy(i)
    END BLOCK
  end function foo
end program test
! { dg-prune-output "unimplemented" }
! { dg-final { scan-tree-dump-times "pragma acc declare map\\(force_tofrom:i\\)" 2 "original" } } 
! { dg-final { cleanup-tree-dump "original" } }