llvm/flang/test/Lower/basic-subroutine.f90

! 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:       }