program main
  use omp_lib
  use iso_c_binding
  implicit none (external, type)
  integer :: d, id
  type(c_ptr) :: p1, p2

  type t
    integer :: m1, m2
  end type t
  type(t), target :: s

  d = omp_get_default_device ()
  id = omp_get_initial_device ()

  if (d < 0 .or. d >= omp_get_num_devices ()) &
    d = id

  if (d /= id) then
    !$omp target data map(alloc: s, s%m2) device(d)
      !$omp target map(from: p1, p2) map(alloc: s, s%m2) device(d)
      p1 = c_loc (s);
      p2 = c_loc (s%m2);
      !$omp end target

      if (.not. c_associated (omp_get_mapped_ptr (c_loc (s), d), p1) &
          .or. .not. c_associated (omp_get_mapped_ptr (c_loc (s%m2), d), p2)) &
        stop 0
    !$omp end target data

    if (c_associated (omp_get_mapped_ptr (c_loc (s), d)) &
        .or. c_associated (omp_get_mapped_ptr (c_loc (s%m2), d))) &
      stop 1

    !$omp target enter data map (alloc: s, s%m2) device (d)
      !$omp target map(from: p1, p2) map(alloc: s, s%m2) device(d)
      p1 = c_loc (s);
      p2 = c_loc (s%m2);
      !$omp end target

      if (.not. c_associated (omp_get_mapped_ptr (c_loc (s), d), p1) &
          .or. .not. c_associated (omp_get_mapped_ptr (c_loc (s%m2), d), p2)) &
        stop 2
    !$omp target exit data map (delete: s, s%m2) device (d)

    if (c_associated (omp_get_mapped_ptr (c_loc (s), d)) &
        .or. c_associated (omp_get_mapped_ptr (c_loc (s%m2), d))) &
      stop 3

  else ! d == id

    !$omp target data map(alloc: s, s%m2) device(d)
      !$omp target map(from: p1, p2) map(alloc: s, s%m2) device(d)
      p1 = c_loc (s);
      p2 = c_loc (s%m2);
      !$omp end target

      if (.not. c_associated (omp_get_mapped_ptr (c_loc (s), d), c_loc (s)) &
        .or. .not. c_associated (omp_get_mapped_ptr (c_loc (s%m2), d), c_loc (s%m2))) &
        stop 4
    !$omp end target data

    if (.not. c_associated (omp_get_mapped_ptr (c_loc (s), d), c_loc (s)) &
        .or. .not. c_associated (omp_get_mapped_ptr (c_loc (s%m2), d), c_loc (s%m2))) &
      stop 5

    !$omp target enter data map (alloc: s, s%m2) device (d)
      !$omp target map(from: p1, p2) map(alloc: s, s%m2) device(d)
      p1 = c_loc (s);
      p2 = c_loc (s%m2);
      !$omp end target

      if (.not. c_associated (omp_get_mapped_ptr (c_loc (s), d), c_loc (s)) &
        .or. .not. c_associated (omp_get_mapped_ptr (c_loc (s%m2), d), c_loc (s%m2))) &
        stop 6

    !$omp target exit data map (delete: s, s%m2) device (d)

    if (.not. c_associated (omp_get_mapped_ptr (c_loc (s), d), c_loc (s)) &
        .or. .not. c_associated (omp_get_mapped_ptr (c_loc (s%m2), d), c_loc (s%m2))) &
      stop 7
  end if

end program main