! PR fortran/98476 | |
subroutine abc(cc) | |
integer, target :: cc, dd | |
cc = 131 | |
dd = 484 | |
!$omp target enter data map(to: cc, dd) | |
!$omp target data use_device_addr(cc) use_device_ptr(dd) | |
!$omp target is_device_ptr(cc, dd) ! Valid since OpenMP 5.1 | |
if (cc /= 131 .or. dd /= 484) stop 1 | |
cc = 44 | |
dd = 45 | |
!$omp end target | |
!$omp end target data | |
!$omp target exit data map(from:cc, dd) | |
if (cc /= 44 .or. dd /= 45) stop 5 | |
end |