16 lines · plain
1! RUN: bbc -emit-hlfir -fcuda %s -o - | FileCheck %s2 3! Simple module to test module use in 4 5module cuf_mod6 real, device :: md7 8contains9 attributes(device) subroutine devsub()10 end11end module12 13! CHECK: fir.global @_QMcuf_modEmd {data_attr = #cuf.cuda<device>} : f3214 15! CHECK: func.func @_QMcuf_modPdevsub() attributes {cuf.proc_attr = #cuf.cuda_proc<device>}16