14 lines · plain
1! RUN: bbc %s --pft-test | FileCheck %s2! RUN: bbc %s -o "-" -emit-fir | FileCheck %s --check-prefix=FIR3 4subroutine sub1()5end subroutine6 7! CHECK: 1 Subroutine sub1: subroutine sub1()8! CHECK: 1 EndSubroutineStmt: end subroutine9! CHECK: End Subroutine sub110 11! FIR-LABEL: func @_QPsub1() {12! FIR: return13! FIR: }14