flang/test/Lower/basic-subroutine.f90

   1 ! RUN: bbc %s --pft-test | FileCheck %s
   2 ! RUN: bbc %s -o "-" -emit-fir | FileCheck %s --check-prefix=FIR
   3
   4 subroutine sub1()
   5 end 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:       }