removed illegal host accesses to device pointers that are created with use_device_ptr.  I modified the write statements to show the value of the pointer within a use_device_ptr.  This cannot be accessed on the host
@@ -16,12 +16,11 @@ program test
x(i)=2
enddo
- write(0, *) "before device_ptr ", x(1)
+ write(0, *) "before td use_device_ptr loc(x(1))=", loc(x(1))
!$omp target data use_device_ptr(x)
- write(0, *) "in device_ptr", x(1)
- if (x(1) .ne. 1) write (0,*) 'FAILED wrong def on x(1)', x(1)
- stop
+ write(0, *) " in td use_device_ptr loc(x(1))=", loc(x(1))
!$omp end target data
+ write(0, *) " after td use_device_ptr loc(x(1))=", loc(x(1))
!$omp target
if (omp_get_thread_num() .eq. 0) then
