15 lines · plain
1! RUN: bbc -emit-hlfir -fcuda %s -o - | FileCheck %s2 3! Test CUDA Fortran instrinsics lowerings for synchronization.4 5attributes(global) subroutine sync()6 call threadfence()7 call threadfence_block()8 call threadfence_system()9end subroutine10 11! CHECK-LABEL: func.func @_QPsync() attributes {cuf.proc_attr = #cuf.cuda_proc<global>}12! CHECK: nvvm.memory.barrier <gpu>13! CHECK: nvvm.memory.barrier <cta>14! CHECK: nvvm.memory.barrier <sys>15