Add pass/fail detection to 275194
program test
+ use omp_lib
integer :: i,k
real,pointer :: x(:)
allocate(x(10))
- k=2
+ k=0
!$omp target if(k > 0) map(from:x)
k=2
!$omp parallel do
do i=1, 10
- x(i)=1
+ x(i)=omp_get_thread_num()
enddo
!$omp end parallel do
!$omp end target
-
+ print *,x
+ if (x(1) .eq. 0) print *,"Failed"
end program test
