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