| ! RUN: bbc %s --pft-test | FileCheck %s | |
| ! RUN: bbc %s -o "-" -emit-fir | FileCheck %s --check-prefix=FIR | |
| subroutine sub1() | |
| end subroutine | |
| ! CHECK: 1 Subroutine sub1: subroutine sub1() | |
| ! CHECK: 1 EndSubroutineStmt: end subroutine | |
| ! CHECK: End Subroutine sub1 | |
| ! FIR-LABEL: func @_QPsub1() { | |
| ! FIR: return | |
| ! FIR: } |