! RUN: bbc -emit-hlfir -fcuda %s -o - | FileCheck %s
! Simple module to test module use in
module cuf_mod
real, device :: md
contains
attributes(device) subroutine devsub()
end
end module
! CHECK: fir.global @_QMcuf_modEmd {data_attr = #cuf.cuda<device>} : f32
! CHECK: func.func @_QMcuf_modPdevsub() attributes {cuf.proc_attr = #cuf.cuda_proc<device>}