12 lines · plain
1! RUN: bbc -emit-fir -hlfir -fcuda %s -o - | FileCheck %s --check-prefixes=ALL,CUDA2! RUN: bbc -emit-fir -hlfir %s -o - | FileCheck %s --check-prefixes=ALL,NOCUDA3 4program test_init5 6end 7 8! ALL-LABEL: func.func @main9! ALL: fir.call @_FortranAProgramStart10! CUDA: fir.call @_FortranACUFInit() fastmath<contract> : () -> ()11! NOCUDA-NOT: fir.call @_FortranACUFInit() fastmath<contract> : () -> ()12