aboutsummaryrefslogtreecommitdiff
path: root/libgomp/testsuite/libgomp.fortran/task-8.f90
blob: 037c63b8fa3496e600c87317b435752d35e9fa52 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
! { dg-do run }

program main
  implicit none
  integer :: i
  i = 0
  !$omp task
    !$omp target nowait private (i)
      i = 1
    !$omp end target
    !$omp taskwait
  !$omp end task
end