forked from OSchip/llvm-project
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
|