1subroutine foo
2  integer :: n = 5, m = 7
3  !$omp declare target to(n)
4  !$omp threadprivate (m)
5end
6
7program main
8  integer :: i, j
9  !$omp declare target to(i)
10  !$omp threadprivate (j)
11end
12