10 lines · plain
1 2! RUN: bbc -emit-hlfir -fcuda %s -o - | FileCheck %s3 4attributes(global) subroutine sharedstar()5 real, shared :: s(*) ! ok. dynamic shared memory.6end subroutine7 8! CHECK-LABEL: func.func @_QPsharedstar()9! CHECK: hlfir.declare %{{.*}}(%{{.*}}) {data_attr = #cuf.cuda<shared>, uniq_name = "_QFsharedstarEs"} : (!fir.ref<!fir.array<?xf32>>, !fir.shape<1>) -> (!fir.box<!fir.array<?xf32>>, !fir.ref<!fir.array<?xf32>>)10