! Ensure that the ompx_gnu_pinned_mem_alloc predefined allocator is present and
! accepted.  The majority of the functionality testing lives in the C tests.
!
! { dg-xfail-run-if "Pinning not implemented on this host" { ! *-*-linux-gnu* } }

program main
  use omp_lib
  use ISO_C_Binding
  implicit none (external, type)

  type(c_ptr) :: p

  p = omp_alloc (10_c_size_t, ompx_gnu_pinned_mem_alloc);
  if (.not. c_associated (p)) stop 1
  call omp_free (p, ompx_gnu_pinned_mem_alloc);
end program main