70970d0a5b
Implements lowering for the Fortran `PAUSE` statement. - Handles PAUSE with no operand. - Handles PAUSE with integer argument. - Handles PAUSE with character literal argument. - Adds a new lowering test: flang/test/Lower/pause-statement.f90. Unlike STOP, PAUSE does not unconditionally terminate control flow. The lowering preserves labels and GOTOs, consistent with legacy Fortran behavior. Fixes: #166821 --------- Co-authored-by: aditya nath <adityanath5002@gmail.com> Co-authored-by: Eugene Epshteyn <eepshteyn@nvidia.com>
33 lines
1.3 KiB
Fortran
33 lines
1.3 KiB
Fortran
! RUN: bbc %s -emit-fir --canonicalize -o - | FileCheck %s
|
|
|
|
! CHECK-LABEL: pause_test
|
|
subroutine pause_test()
|
|
pause
|
|
! CHECK: fir.call @_FortranA{{.*}}PauseStatement()
|
|
! CHECK-NEXT: return
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: pause_code
|
|
subroutine pause_code()
|
|
pause 42
|
|
! CHECK: %[[c42:.*]] = arith.constant 42 : i32
|
|
! CHECK: fir.call @_FortranA{{.*}}PauseStatementInt(%[[c42]])
|
|
! CHECK-NEXT: return
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: pause_msg
|
|
subroutine pause_msg()
|
|
pause "hello"
|
|
! CHECK-DAG: %[[five:.*]] = arith.constant 5 : index
|
|
! CHECK-DAG: %[[addr:.*]] = fir.address_of(@_QQ{{.*}}) : !fir.ref<!fir.char<1,5>>
|
|
! CHECK-DAG: %[[str:.*]]:2 = hlfir.declare %[[addr]] typeparams %[[five]] {fortran_attrs = #fir.var_attrs<parameter>, uniq_name = "_QQ{{.*}}"} : (!fir.ref<!fir.char<1,5>>, index) -> (!fir.ref<!fir.char<1,5>>, !fir.ref<!fir.char<1,5>>)
|
|
! CHECK-DAG: %[[buff:.*]] = fir.convert %[[str]]#0 : (!fir.ref<!fir.char<1,5>>) -> !fir.ref<i8>
|
|
! CHECK-DAG: %[[len:.*]] = fir.convert %[[five]] : (index) -> i64
|
|
! CHECK: fir.call @_FortranA{{.*}}PauseStatementText(%[[buff]], %[[len]])
|
|
! CHECK-NEXT: return
|
|
end subroutine
|
|
|
|
! CHECK-DAG: func private @_FortranA{{.*}}PauseStatement
|
|
! CHECK-DAG: func private @_FortranA{{.*}}PauseStatementInt
|
|
! CHECK-DAG: func private @_FortranA{{.*}}PauseStatementText
|