module test_m
    implicit none
    public test_type
    type test_type
        integer :: num
        integer, dimension(10) :: iarr
        integer, pointer :: p1(:)
    end type
end module

program loop_test
    use test_m

    implicit none
    integer   :: i, C, C1, C2, ex, ex1, ex2
    type(test_type), target   :: obj
    obj%num = 111
    C=0
    C1=0
    C2=0
    ex=0
    ex1=0
    ex2=0
    allocate(obj%p1(10))

    do i=1, 10
        obj%iarr(i) = i
        obj%p1(i) = i*2
    end do

    do i=1, 10
        ex=ex+obj%num
        ex1=ex1+obj%iarr(i)
        ex2=ex2+obj%p1(i)
    end do

    !$OMP TARGET ENTER DATA MAP(TO: obj, obj%p1)
    !$OMP TARGET PARALLEL DO REDUCTION(+:C, C1, C2)
    do i=1, 10
        C=C+obj%num
        C1=C1+obj%iarr(i)
        C2=C2+obj%p1(i)
    end do
    !$OMP END TARGET PARALLEL DO
    !$OMP TARGET EXIT DATA MAP(RELEASE:obj, obj%p1)

    call __check_int(ex, C, 1)
    call __check_int(ex1, C1, 1)
    call __check_int(ex2, C2, 1)

end program loop_test