Lower the PAUSE statement to a runtime call. This patch is part of the upstreaming effort from fir-dev branch. Reviewed By: kiranchandramohan, schweitz Differential Revision: https://reviews.llvm.org/D118699 Co-authored-by: Eric Schweitz <eschweitz@nvidia.com> Co-authored-by: Jean Perier <jperier@nvidia.com>
9 lines
207 B
Fortran
9 lines
207 B
Fortran
! 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
|