11 lines · plain
1! RUN: bbc -emit-fir %s -o - | FileCheck %s2 3! CHECK-LABEL: func.func @_QPabort_test() {4! CHECK: fir.call @_FortranAAbort() {{.*}}: () -> ()5! CHECK: return6! CHECK: }7 8subroutine abort_test()9 call abort10end subroutine11