| // Helper function used in Offload Fortran test |
| // target-use-dev-ptr.f90 to allocate data and |
| // check resulting addresses. |
| |
| #include <assert.h> |
| #include <malloc.h> |
| #include <stdio.h> |
| |
| 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; |
| } |