23 lines · plain
1! RUN: rm -fr %t && mkdir -p %t && cd %t2! RUN: bbc -fopenacc -emit-fir %S/acc-module-definition.f903! RUN: bbc -fopenacc -emit-fir %s -o - | FileCheck %s4 5! This test module is based off of flang/test/Lower/use_module.f906! The first runs ensures the module file is generated.7 8module use_mod19 use mod110 contains11 !CHECK: acc.routine @acc_routine_0 func(@_QMmod1Pcallee) seq12 !CHECK: func.func @_QMuse_mod1Pcaller13 !CHECK-SAME {14 subroutine caller(aa)15 integer :: aa16 !$acc serial17 !CHECK: fir.call @_QMmod1Pcallee18 call callee(aa)19 !$acc end serial20 end subroutine21 !CHECK: }22 !CHECK: func.func private @_QMmod1Pcallee(!fir.ref<i32>) attributes {acc.routine_info = #acc.routine_info<[@acc_routine_0]>}23end module