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