1! PR fortran/98476
2
3subroutine abc(cc)
4    integer, target :: cc, dd
5    cc = 131
6    dd = 484
7
8    !$omp target enter data map(to: cc, dd)
9
10    !$omp target data use_device_addr(cc) use_device_ptr(dd)
11      !$omp target is_device_ptr(cc, dd)  ! { dg-error "Non-dummy object 'dd' in IS_DEVICE_PTR clause at" }
12        if (cc /= 131 .or. dd /= 484) stop 1
13        cc = 44
14        dd = 45
15      !$omp end target
16    !$omp end target data
17
18    !$omp target exit data map(from:cc, dd)
19
20    if (cc /= 44 .or. dd /= 45) stop 5
21end
22