diff options
| -rw-r--r-- | flang/lib/Lower/Bridge.cpp | 2 | ||||
| -rw-r--r-- | flang/lib/Lower/Runtime.cpp | 10 | ||||
| -rw-r--r-- | flang/test/Lower/pause-statement.f90 | 8 |
3 files changed, 19 insertions, 1 deletions
diff --git a/flang/lib/Lower/Bridge.cpp b/flang/lib/Lower/Bridge.cpp index fd52a76..7302f6c 100644 --- a/flang/lib/Lower/Bridge.cpp +++ b/flang/lib/Lower/Bridge.cpp @@ -547,7 +547,7 @@ private: } void genFIR(const Fortran::parser::PauseStmt &stmt) { - TODO(toLocation(), "PauseStmt lowering"); + genPauseStatement(*this, stmt); } void genFIR(const Fortran::parser::FailImageStmt &stmt) { diff --git a/flang/lib/Lower/Runtime.cpp b/flang/lib/Lower/Runtime.cpp index 7156a88..a49b091 100644 --- a/flang/lib/Lower/Runtime.cpp +++ b/flang/lib/Lower/Runtime.cpp @@ -68,3 +68,13 @@ void Fortran::lower::genStopStatement( builder.create<fir::CallOp>(loc, callee, operands); genUnreachable(builder, loc); } + +void Fortran::lower::genPauseStatement( + Fortran::lower::AbstractConverter &converter, + const Fortran::parser::PauseStmt &) { + fir::FirOpBuilder &builder = converter.getFirOpBuilder(); + mlir::Location loc = converter.getCurrentLocation(); + mlir::FuncOp callee = + fir::runtime::getRuntimeFunc<mkRTKey(PauseStatement)>(loc, builder); + builder.create<fir::CallOp>(loc, callee, llvm::None); +} diff --git a/flang/test/Lower/pause-statement.f90 b/flang/test/Lower/pause-statement.f90 new file mode 100644 index 0000000..e4cba98 --- /dev/null +++ b/flang/test/Lower/pause-statement.f90 @@ -0,0 +1,8 @@ +! RUN: bbc %s -emit-fir --canonicalize -o - | FileCheck %s + +! CHECK-LABEL pause_test +subroutine pause_test() + ! CHECK: fir.call @_Fortran{{.*}}PauseStatement() + ! CHECK-NEXT: return + pause +end subroutine |