| // RUN: %libomptarget-compile-run-and-check-generic |
| |
| #include <omp.h> |
| #include <stdio.h> |
| |
| // OpenMP 5.1. sec 5.8.6 "Pointer Initialization for Device Data Environments" |
| // p. 160 L32-33: "If a matching mapped list item is not found, the pointer |
| // retains its original value as per the32 firstprivate semantics described in |
| // Section 5.4.4." |
| |
| int main(void) { |
| int *A = (int *)omp_target_alloc(sizeof(int), omp_get_default_device()); |
| |
| #pragma omp target |
| { *A = 1; } |
| |
| int Result = 0; |
| #pragma omp target map(from : Result) |
| { Result = *A; } |
| |
| // CHECK: PASS |
| if (Result == 1) |
| printf("PASS\n"); |
| |
| omp_target_free(A, omp_get_default_device()); |
| } |