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