libgomp/testsuite/libgomp.fortran/target-present-1.f90

program main
  implicit none
  integer, parameter :: N = 100
  integer :: a(N), b(N), c(N), i

  do i = 1, N
    a(i) = i * 2
    b(i) = i * 3 + 1
  end do

  !$omp target enter data map (alloc: a)
    ! a has already been allocated, so this should be okay.
    !$omp target map (present, to: a)
      do i = 1, N
        c(i) = a(i)
      end do
    !$omp end target

    print *, "CheCKpOInT"
    ! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }

    ! b has not been allocated, so this should result in an error.
    ! { dg-output "libgomp: present clause: not present on the device \\(addr: 0x\[0-9a-f\]+, size: \[0-9\]+ \\(0x\[0-9a-f\]+\\), dev: \[0-9\]+\\\)" { target offload_device_nonshared_as } }
    ! { dg-shouldfail "present error triggered" { offload_device_nonshared_as } }
    !$omp target map (present, to: b)
      do i = 1, N
        c(i) = c(i) + b(i)
      end do
    !$omp end target
  !$omp target exit data map (from: c)
end program