diff --git a/gpu-openmp/docs/06-OpenMP-interoperability.md b/gpu-openmp/docs/06-OpenMP-interoperability.md index a7e58f55..8c31455f 100644 --- a/gpu-openmp/docs/06-OpenMP-interoperability.md +++ b/gpu-openmp/docs/06-OpenMP-interoperability.md @@ -138,7 +138,6 @@ extern "C" void daxpy(int n, double a,
```c -! call_hip_from_openmp.f90 MODULE HIP_INTERFACES INTERFACE subroutine f_daxpy(n, a, x, y) bind(C,name=daxpy) @@ -156,14 +155,14 @@ END MODULE HIP_INTERFACES ... integer(c_int) :: n double(c_double) :: a + + !$omp target data map(alloc:x[0:n], y[0:n]) ... !$omp target data use_device_ptr(x, y) - call f_daxpy(n,a,c_loc(x),c_loc(y)) ``` -