38 lines · plain
1! Basic offloading test that makes sure we can use the predominantly host2! pragma threadprivate in the same program as target code3! REQUIRES: flang, amdgpu4 5! RUN: %libomptarget-compile-fortran-run-and-check-generic6program main7 implicit none8 9 type dtype10 integer :: val(10)11 end type dtype12 13 integer :: i14 type(dtype), pointer :: pointer115 type(dtype), pointer :: pointer2=>null()16 integer, dimension(:), pointer :: data_pointer17 18!$omp threadprivate(pointer2)19 20nullify(pointer1)21allocate(pointer1)22 23pointer2=>pointer124pointer2%val(:)=125data_pointer=>pointer2%val26 27!$omp target28 do i = 1, 1029 data_pointer(i) = i30 end do31!$omp end target32 33print *, data_pointer34 35end program main36 37! CHECK: 1 2 3 4 5 6 7 8 9 1038