Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-fortran/host_data-1.f90 @ 143:76e1cf5455ef
add cbc_gc test
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 19:24:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! { dg-additional-options "-cpp" } program test implicit none integer, target :: i, arr(1000) integer, pointer :: ip, iph integer, contiguous, pointer :: parr(:), parrh(:) ! Assign the same targets ip => i parr => arr iph => i parrh => arr !$acc data copyin(i, arr) !$acc host_data use_device(ip, parr) ! Test how the pointers compare inside a host_data construct #if ACC_MEM_SHARED if (.not. associated(ip, iph)) STOP 1 if (.not. associated(parr, parrh)) STOP 2 #else if (associated(ip, iph)) STOP 3 if (associated(parr, parrh)) STOP 4 #endif !$acc end host_data !$acc end data end program test