llvm-project/flang/test/Lower/basic-subroutine.f90
Valentin Clement 89275300d8
[flang] Add lowering for basic empty SUBROUTINE
This patch adds the ability to lower an empty subroutine.

Reviewed By: kiranchandramohan

Differential Revision: https://reviews.llvm.org/D118695
2022-02-01 15:28:18 +01:00

14 lines
331 B
Fortran

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