| ! RUN: bbc -emit-hlfir -fcuda %s -o - | FileCheck %s | |
| attributes(global) subroutine sharedmem() | |
| real, shared :: s(*) | |
| integer :: t | |
| t = threadIdx%x | |
| s(t) = t | |
| end subroutine | |
| program test | |
| call sharedmem<<<1, 1, 1024, 0>>>() | |
| end | |
| ! CHECK-LABEL: func.func @_QQmain() | |
| ! CHECK: cuf.kernel_launch @_QPsharedmem<<<%c1{{.*}}, %c1{{.*}}, %c1{{.*}}, %c1{{.*}}, %c1{{.*}}, %c1{{.*}}, %c1024{{.*}}, %{{.*}} : !fir.ref<i64>>>>() |