tree cdd16ef3337fac6ba2880a79bb30149197ed6ed4
parent 354bac35748062658d61420c2108b750877204dd
author peter klausler <pklausler@nvidia.com> 1622678371 -0700
committer Copybara-Service <copybara-worker@google.com> 1623871129 -0700

[flang] Fix folding of CMPLX

The code for folding calls to the intrinsic function CMPLX was
incorrectly dependent on the number of arguments to distinguish its
two cases (conversion from one kind of complex to another, and
composition of a complex value from real & imaginary parts).
This was wrong since the optional KIND= argument has already been
taken into account by intrinsic processing; instead, the type of
the first argument should decide the issue.

Differential Revision: https://reviews.llvm.org/D103568

GitOrigin-RevId: 6fa5353a5696bf8c4c2689126a025330c72aa8f9