cfc56c982f
CHARACTER dummy arguments were treated as local variables in debug info. This happened because our method to get the argument number was not robust. It relied on `DeclareOp` having a direct reference to arguments which was not the case for character arguments. This is fixed by storing source-level argument positions in `DeclareOp`. Fixes #112886
23 lines
1.1 KiB
Fortran
23 lines
1.1 KiB
Fortran
! RUN: %flang_fc1 -fopenmp -emit-hlfir -o - %s | FileCheck %s
|
|
|
|
subroutine depend_complex(z)
|
|
! CHECK-LABEL: func.func @_QPdepend_complex(
|
|
! CHECK-SAME: %[[ARG0:.*]]: !fir.ref<complex<f32>> {fir.bindc_name = "z"}) {
|
|
complex :: z
|
|
! CHECK: %[[VAL_0:.*]] = fir.dummy_scope : !fir.dscope
|
|
! CHECK: %[[VAL_1:.*]]:2 = hlfir.declare %[[ARG0]] dummy_scope %[[VAL_0]] arg {{[0-9]+}} {uniq_name = "_QFdepend_complexEz"} : (!fir.ref<complex<f32>>, !fir.dscope) -> (!fir.ref<complex<f32>>, !fir.ref<complex<f32>>)
|
|
!$omp task depend(in:z%re)
|
|
! CHECK: %[[VAL_2:.*]] = hlfir.designate %[[VAL_1]]#0 real : (!fir.ref<complex<f32>>) -> !fir.ref<f32>
|
|
! CHECK: omp.task depend(taskdependin -> %[[VAL_2]] : !fir.ref<f32>) {
|
|
! CHECK: omp.terminator
|
|
! CHECK: }
|
|
!$omp end task
|
|
!$omp task depend(in:z%im)
|
|
! CHECK: %[[VAL_3:.*]] = hlfir.designate %[[VAL_1]]#0 imag : (!fir.ref<complex<f32>>) -> !fir.ref<f32>
|
|
! CHECK: omp.task depend(taskdependin -> %[[VAL_3]] : !fir.ref<f32>) {
|
|
! CHECK: omp.terminator
|
|
! CHECK: }
|
|
!$omp end task
|
|
end subroutine
|
|
|