18 lines
611 B
Fortran
18 lines
611 B
Fortran
|
! RUN: bbc -emit-fir -hlfir=false %s -o - | FileCheck %s
|
||
|
|
|
||
|
|
subroutine test_dreal(r, c)
|
||
|
|
real(8), intent(out) :: r
|
||
|
|
complex(8), intent(in) :: c
|
||
|
|
|
||
|
|
! CHECK-LABEL: func @_QPtest_dreal(
|
||
|
|
! CHECK-SAME: %[[ARG_0:.*]]: !fir.ref<f64> {fir.bindc_name = "r"},
|
||
|
|
! CHECK-SAME: %[[ARG_1:.*]]: !fir.ref<!fir.complex<8>> {fir.bindc_name = "c"}) {
|
||
|
|
! CHECK: %[[VAL_0:.*]] = fir.load %[[ARG_1]] : !fir.ref<!fir.complex<8>>
|
||
|
|
! CHECK: %[[VAL_1:.*]] = fir.extract_value %[[VAL_0]], [0 : index] : (!fir.complex<8>) -> f64
|
||
|
|
! CHECK: fir.store %[[VAL_1]] to %[[ARG_0]] : !fir.ref<f64>
|
||
|
|
! CHECK: return
|
||
|
|
! CHECK: }
|
||
|
|
|
||
|
|
r = dreal(c)
|
||
|
|
end
|