// Helper function used in Offload Fortran test // target-use-dev-ptr.f90 to allocate data and // check resulting addresses. #include #include #include int *get_ptr() { int *ptr = malloc(sizeof(int)); assert(ptr && "malloc returned null"); return ptr; } int check_result(int *host_ptr, int *dev_ptr) { if (dev_ptr == NULL || dev_ptr == host_ptr) { printf("FAILURE\n"); return -1; } else { printf("SUCCESS\n"); return 0; } } int check_equality(void *host_ptr, void *dev_ptr) { return dev_ptr == host_ptr; }