mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-14 02:11:25 +01:00
34 lines
774 B
C
34 lines
774 B
C
/*
|
|
* @@name: target_ptr_map.4
|
|
* @@type: C
|
|
* @@operation: compile
|
|
* @@expect: success
|
|
* @@version: omp_5.2
|
|
*/
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <omp.h>
|
|
|
|
void do_work(int *ptr, const int size);
|
|
|
|
int main()
|
|
{
|
|
const int n = 1000;
|
|
const int buf_size = sizeof(int) * n;
|
|
const int dev = omp_get_default_device();
|
|
|
|
int *ptr = (int *) malloc(buf_size); // possibly compiled on
|
|
// Unified Shared Memory system
|
|
const int accessible = omp_target_is_accessible(ptr, buf_size, dev);
|
|
|
|
#pragma omp metadirective \
|
|
when(user={condition(accessible)}: target firstprivate(ptr) ) \
|
|
otherwise( target map(ptr[:n]) )
|
|
{
|
|
do_work(ptr, n);
|
|
}
|
|
|
|
free(ptr);
|
|
return 0;
|
|
}
|