4d323f4837
This patch adds lowering for the `exit` intrinsic. This patch is part of the upstreaming effort from fir-dev branch. Reviewed By: jeanPerier Differential Revision: https://reviews.llvm.org/D121882 Co-authored-by: Jean Perier <jperier@nvidia.com> Co-authored-by: Josh Mottley <Josh.Mottley@arm.com>
24 lines
1.3 KiB
Fortran
24 lines
1.3 KiB
Fortran
! RUN: bbc -emit-fir %s -o - | FileCheck --check-prefixes=CHECK,CHECK-32 -DDEFAULT_INTEGER_SIZE=32 %s
|
|
! bbc doesn't have a way to set the default kinds so we use flang-new driver
|
|
! RUN: flang-new -fc1 -fdefault-integer-8 -emit-fir %s -o - | FileCheck --check-prefixes=CHECK,CHECK-64 -DDEFAULT_INTEGER_SIZE=64 %s
|
|
|
|
! CHECK-LABEL: func @_QPexit_test1() {
|
|
subroutine exit_test1
|
|
call exit()
|
|
! CHECK: %[[status:.*]] = arith.constant 0 : i[[DEFAULT_INTEGER_SIZE]]
|
|
! CHECK-64: %[[statusConvert:.*]] = fir.convert %[[status]] : (i64) -> i32
|
|
! CHECK-32: %{{[0-9]+}} = fir.call @_FortranAExit(%[[status]]) : (i32) -> none
|
|
! CHECK-64: %{{[0-9]+}} = fir.call @_FortranAExit(%[[statusConvert]]) : (i32) -> none
|
|
end subroutine exit_test1
|
|
|
|
! CHECK-LABEL: func @_QPexit_test2(
|
|
! CHECK-SAME: %[[statusArg:.*]]: !fir.ref<i[[DEFAULT_INTEGER_SIZE]]>{{.*}}) {
|
|
subroutine exit_test2(status)
|
|
integer :: status
|
|
call exit(status)
|
|
! CHECK: %[[status:.*]] = fir.load %[[statusArg]] : !fir.ref<i[[DEFAULT_INTEGER_SIZE]]>
|
|
! CHECK-64: %[[statusConv:.*]] = fir.convert %[[status]] : (i64) -> i32
|
|
! CHECK-32: %{{[0-9]+}} = fir.call @_FortranAExit(%[[status]]) : (i32) -> none
|
|
! CHECK-64: %{{[0-9]+}} = fir.call @_FortranAExit(%[[statusConv]]) : (i32) -> none
|
|
end subroutine exit_test2
|