16 lines · plain
1! RUN: bbc -emit-hlfir -fcuda %s -o - | FileCheck %s2 3attributes(global) subroutine sharedmem()4 real, shared :: s(*)5 integer :: t6 t = threadIdx%x7 s(t) = t8end subroutine9 10program test11 call sharedmem<<<1, 1, 1024, 0>>>()12end13 14! CHECK-LABEL: func.func @_QQmain()15! CHECK: cuf.kernel_launch @_QPsharedmem<<<%c1{{.*}}, %c1{{.*}}, %c1{{.*}}, %c1{{.*}}, %c1{{.*}}, %c1{{.*}}, %c1024{{.*}}, %{{.*}} : !fir.ref<i64>>>>()16