https://gcc.gnu.org/bugzilla/show_bug.cgi?id=120099
--- Comment #19 from Andrew Pinski <pinskia at gcc dot gnu.org> --- (In reply to anlauf from comment #18) > (In reply to Thomas Koenig from comment #17) > > (In reply to Andrew Pinski from comment #15) > > > (In reply to anlauf from comment #14) > > > > This fixes the reduced testcase for me, but gfortran.dg/specifics_1.f90 > > > > still fails here. > > > > > > Which means there are many more intrinsics here that need this treatment. > > > The testcase has just subroutine test_* calls in the "program" (main) in > > > it > > > which you can narrow down which ones are failing ones are failing. > > > > The following tests fail (checked with a quick&dirty perl script): > > > > call test_c (conjg, (1.2,-4.), conjg((1.2,-4.))) > > call test_c (ccos, (1.2,-4.), ccos((1.2,-4.))) > > call test_c (cexp, (1.2,-4.), cexp((1.2,-4.))) > > call test_c (clog, (1.2,-4.), clog((1.2,-4.))) > > call test_c (csin, (1.2,-4.), csin((1.2,-4.))) > > call test_c (csqrt, (1.2,-4.), csqrt((1.2,-4.))) > > call test_z (dconjg, (1.2d0,-4.d0), dconjg((1.2d0,-4.d0))) > > call test_z (cdcos, (1.2d0,-4.d0), cdcos((1.2d0,-4.d0))) > > call test_z (zcos, (1.2d0,-4.d0), zcos((1.2d0,-4.d0))) > > call test_z (cdexp, (1.2d0,-4.d0), cdexp((1.2d0,-4.d0))) > > call test_z (zexp, (1.2d0,-4.d0), zexp((1.2d0,-4.d0))) > > call test_z (cdlog, (1.2d0,-4.d0), cdlog((1.2d0,-4.d0))) > > call test_z (zlog, (1.2d0,-4.d0), zlog((1.2d0,-4.d0))) > > call test_z (cdsin, (1.2d0,-4.d0), cdsin((1.2d0,-4.d0))) > > call test_z (zsin, (1.2d0,-4.d0), zsin((1.2d0,-4.d0))) > > call test_z (cdsqrt, (1.2d0,-4.d0), cdsqrt((1.2d0,-4.d0))) > > call test_z (zsqrt, (1.2d0,-4.d0), zsqrt((1.2d0,-4.d0))) > > Isn't that the full list of intrinsics returning complex results? I think so.