1! { dg-do run } 2! { dg-additional-options "-cpp" } 3 4program test 5 implicit none 6 7 integer, target :: i, arr(1000) 8 integer, pointer :: ip, iph 9 integer, contiguous, pointer :: parr(:), parrh(:) 10 11 ! Assign the same targets 12 ip => i 13 parr => arr 14 iph => i 15 parrh => arr 16 17 !$acc data copyin(i, arr) 18 !$acc host_data use_device(ip, parr) 19 20 ! Test how the pointers compare inside a host_data construct 21#if ACC_MEM_SHARED 22 if (.not. associated(ip, iph)) STOP 1 23 if (.not. associated(parr, parrh)) STOP 2 24#else 25 if (associated(ip, iph)) STOP 3 26 if (associated(parr, parrh)) STOP 4 27#endif 28 29 !$acc end host_data 30 !$acc end data 31 32end program test 33