Retro68/gcc/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-3.f90

! { dg-do run }

  call foo ()
contains
  subroutine foo ()
    integer, target :: A(30)
    integer, pointer :: p(:)
    !$omp target data map(A(1:4))
      p => A
      !$omp target map(p(8:27)) map(A(1:4))
        A(3) = 777
        p(9) = 777
      !$omp end target
    !$omp end target data
    if (A(3) /= 777 .or. A(9) /= 777) STOP 1
  end subroutine
end