Sign in
llvm
/
llvm-project
/
flang
/
refs/heads/master
/
.
/
test
/
Lower
/
Intrinsics
/
conjg.f90
blob: a1c5a56d9de5a32847998e7c96d5f335e8d3f9dd [
file
] [
log
] [
blame
]
!
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