13 lines · plain
1! RUN: bbc -fcuda -emit-hlfir %s -o - | fir-opt --cuf-add-constructor | FileCheck %s2 3program main4 real, device :: ahost(10)5end6 7! CHECK: llvm.func @_FortranACUFRegisterAllocator() attributes {sym_visibility = "private"}8! CHECK-LABEL: llvm.func internal @__cudaFortranConstructor() {9! CHECK: llvm.call @_FortranACUFRegisterAllocator() : () -> ()10! CHECK: llvm.return11! CHECK: }12! CHECK: llvm.mlir.global_ctors ctors = [@__cudaFortranConstructor], priorities = [0 : i32], data = [#llvm.zero]13