13 lines · plain
1! RUN: bbc -emit-hlfir -fcuda %s -o - | FileCheck %s2 3attributes(global) subroutine sharedmem()4 real, shared :: s(32)5 integer :: t6 t = threadIdx%x7 s(t) = t8end subroutine9 10! CHECK-LABEL: func.func @_QPsharedmem() attributes {cuf.proc_attr = #cuf.cuda_proc<global>}11! CHECK: %{{.*}} = cuf.shared_memory !fir.array<32xf32> {bindc_name = "s", uniq_name = "_QFsharedmemEs"} -> !fir.ref<!fir.array<32xf32>>12! CHECK-NOT: cuf.free13