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