22 lines · plain
1! RUN: bbc -emit-hlfir -fcuda %s -o - | FileCheck %s2 3module devptr4 real, device, pointer, dimension(:) :: dev_ptr5end module6 7use devptr8real, device, target, dimension(4) :: a_dev9a_dev = 42.010dev_ptr => a_dev11 12dev_ptr => null()13 14nullify(dev_ptr)15end16 17! CHECK: fir.global @_QMdevptrEdev_ptr {data_attr = #cuf.cuda<device>} : !fir.box<!fir.ptr<!fir.array<?xf32>>>18! CHECK-LABEL: func.func @_QQmain()19! CHECK: fir.embox20! CHECK: fir.store21! CHECK-COUNT-3: cuf.sync_descriptor @_QMdevptrEdev_ptr22