1 // RUN: %libomptarget-compile-run-and-check-generic
2 // REQUIRES: nvptx64-nvidia-cuda
3 
4 #include <assert.h>
5 #include <omp.h>
6 #include <stdint.h>
7 #include <stdio.h>
8 #include <stdlib.h>
9 
10 typedef void *cudaStream_t;
11 
12 int main() {
13 
14   int device_id = omp_get_default_device();
15 
16 #pragma omp parallel master
17   {
18 
19     double D0, D2;
20     omp_interop_t interop;
21 
22 #pragma omp interop init(targetsync : interop) device(device_id) nowait
23     assert(interop != NULL);
24 
25     int err;
26     for (int i = omp_ipr_first; i < 0; i++) {
27       const char *n =
28           omp_get_interop_name(interop, (omp_interop_property_t)(i));
29       long int li =
30           omp_get_interop_int(interop, (omp_interop_property_t)(i), &err);
31       const void *p =
32           omp_get_interop_ptr(interop, (omp_interop_property_t)(i), &err);
33       const char *s =
34           omp_get_interop_str(interop, (omp_interop_property_t)(i), &err);
35       const char *n1 =
36           omp_get_interop_type_desc(interop, (omp_interop_property_t)(i));
37     }
38 #pragma omp interop use(interop) depend(in : D0, D2)
39 
40     cudaStream_t stream =
41         (omp_get_interop_ptr(interop, omp_ipr_targetsync, NULL));
42     assert(stream != NULL);
43 
44 #pragma omp interop destroy(interop) depend(in : D0, D2) device(device_id)
45   }
46   printf("PASS\n");
47 }
48 // CHECK: PASS
49