Fix gcc.c-torture/execute/ieee/cdivchkf.c on hpux
[official-gcc.git] / libgomp / testsuite / libgomp.fortran / task-8.f90
blob037c63b8fa3496e600c87317b435752d35e9fa52
1 ! { dg-do run }
3 program main
4 implicit none
5 integer :: i
6 i = 0
7 !$omp task
8 !$omp target nowait private (i)
9 i = 1
10 !$omp end target
11 !$omp taskwait
12 !$omp end task
13 end