llvm-project/flang/test/Lower/Intrinsics/conjg.f90

11 lines
226 B
Fortran

! RUN: bbc -emit-fir %s -o - | FileCheck %s
! CHECK-LABEL: conjg_test
subroutine conjg_test(z1, z2)
complex :: z1, z2
! CHECK: fir.extract_value
! CHECK: negf
! CHECK: fir.insert_value
z2 = conjg(z1)
end subroutine