baa42c1647
This patch adds more lowering tests for dummy arguments and adds lowering for a specific case. This patch is part of the upstreaming effort from fir-dev branch. Reviewed By: schweitz Differential Revision: https://reviews.llvm.org/D121919 Co-authored-by: Jean Perier <jperier@nvidia.com> Co-authored-by: Eric Schweitz <eschweitz@nvidia.com>
42 lines
1.0 KiB
Fortran
42 lines
1.0 KiB
Fortran
! RUN: bbc %s -o - | FileCheck %s
|
|
|
|
! CHECK-LABEL: _QQmain
|
|
program test1
|
|
! CHECK-DAG: %[[TMP:.*]] = fir.alloca
|
|
! CHECK-DAG: %[[TEN:.*]] = arith.constant
|
|
! CHECK: fir.store %[[TEN]] to %[[TMP]]
|
|
! CHECK-NEXT: fir.call @_QFPfoo
|
|
call foo(10)
|
|
contains
|
|
|
|
! CHECK-LABEL: func @_QFPfoo
|
|
subroutine foo(avar1)
|
|
integer :: avar1
|
|
! integer :: my_data, my_data2
|
|
! DATA my_data / 150 /
|
|
! DATA my_data2 / 150 /
|
|
! print *, my_data, my_data2
|
|
print *, avar1
|
|
end subroutine
|
|
! CHECK: }
|
|
end program test1
|
|
|
|
! CHECK-LABEL: func @_QPsub2
|
|
function sub2(r)
|
|
real :: r(20)
|
|
! CHECK: %[[coor:.*]] = fir.coordinate_of %arg0
|
|
! CHECK: = fir.call @_QPf(%[[coor]]) : (!fir.ref<f32>) -> f32
|
|
sub2 = f(r(1))
|
|
! CHECK: return %{{.*}} : f32
|
|
end function sub2
|
|
|
|
! Test TARGET attribute lowering
|
|
! CHECK-LABEL: func @_QPtest_target(
|
|
! CHECK-SAME: !fir.ref<i32> {fir.bindc_name = "i", fir.target},
|
|
! CHECK-SAME: !fir.box<!fir.array<?xf32>> {fir.bindc_name = "x", fir.target})
|
|
subroutine test_target(i, x)
|
|
integer, target :: i
|
|
real, target :: x(:)
|
|
print *, xs, xa
|
|
end subroutine
|