1! RUN: bbc %s --pft-test | FileCheck %s 2! RUN: bbc %s -o "-" -emit-fir | FileCheck %s --check-prefix=FIR 3 4subroutine sub1() 5end subroutine 6 7! CHECK: 1 Subroutine sub1: subroutine sub1() 8! CHECK: 1 EndSubroutineStmt: end subroutine 9! CHECK: End Subroutine sub1 10 11! FIR-LABEL: func @_QPsub1() { 12! FIR: return 13! FIR: } 14