mirror of
https://github.com/capstone-engine/llvm-capstone.git
synced 2024-12-26 17:57:07 +00:00
e28e1b4b6d
This patch adds various lowering test for calls. This patch is part of the upstreaming effort from fir-dev branch. Reviewed By: PeteSteinfeld Differential Revision: https://reviews.llvm.org/D122306 Co-authored-by: Jean Perier <jperier@nvidia.com> Co-authored-by: Eric Schweitz <eschweitz@nvidia.com> Co-authored-by: Mats Petersson <mats.petersson@arm.com>
36 lines
1.3 KiB
Fortran
36 lines
1.3 KiB
Fortran
! Note: flang will issue warnings for the following subroutines. These
|
|
! are accepted regardless to maintain backwards compatibility with
|
|
! other Fortran implementations.
|
|
|
|
! RUN: bbc -emit-fir %s -o - | FileCheck %s
|
|
|
|
! CHECK-LABEL: func @_QPs1() {
|
|
! CHECK: %[[cast:.*]] = fir.convert %{{.*}} : (!fir.ref<f32>) -> !fir.ref<!fir.char<1,?>>
|
|
! CHECK: %[[undef:.*]] = fir.undefined index
|
|
! CHECK: %[[box:.*]] = fir.emboxchar %[[cast]], %[[undef]] : (!fir.ref<!fir.char<1,?>>, index) -> !fir.boxchar<1>
|
|
! CHECK: fir.call @_QPs3(%[[box]]) : (!fir.boxchar<1>) -> ()
|
|
|
|
! Pass a REAL by reference to a subroutine expecting a CHARACTER
|
|
subroutine s1
|
|
call s3(r)
|
|
end subroutine s1
|
|
|
|
! CHECK-LABEL: func @_QPs2(
|
|
! CHECK: %[[ptr:.*]] = fir.box_addr %{{.*}} : (!fir.box<!fir.ptr<f32>>) -> !fir.ptr<f32>
|
|
! CHECK: %[[cast:.*]] = fir.convert %[[ptr]] : (!fir.ptr<f32>) -> !fir.ref<!fir.char<1,?>>
|
|
! CHECK: %[[undef:.*]] = fir.undefined index
|
|
! CHECK: %[[box:.*]] = fir.emboxchar %[[cast]], %[[undef]] : (!fir.ref<!fir.char<1,?>>, index) -> !fir.boxchar<1>
|
|
! CHECK: fir.call @_QPs3(%[[box]]) : (!fir.boxchar<1>) -> ()
|
|
|
|
! Pass a REAL, POINTER data reference to a subroutine expecting a CHARACTER
|
|
subroutine s2(p)
|
|
real, pointer :: p
|
|
call s3(p)
|
|
end subroutine s2
|
|
|
|
! CHECK-LABEL: func @_QPs3(
|
|
! CHECK-SAME: !fir.boxchar<1>
|
|
subroutine s3(c)
|
|
character(8) c
|
|
end subroutine s3
|