[Bug fortran/14540] New: [gfortran] Intrinsic CLOG returns wrong result

[bdavis9659 at comcast dot net]

small program to demonstrate:

        COMPLEX AVC
        AVC = CLOG( (-10.0, -10.0) )
        PRINT*,AVC
        END

from g77:

$ g77 y.f
$ ./a.out
 (2.64915872,-2.3561945)

from gfortran:

$ gfortran y.f
$ ./a.out
(   2.649159    ,  0.7853982    )
$ gfortran --version
GNU Fortran 95 (GCC 3.5-tree-ssa 20040311 (merged 20040307))



This makes it a front-end issue, I think:

MAIN__ ()
{
  complex4 avc;
 
  avc = __complex__ (2.649158954620361328125e+0, 7.85398185253143310546875e-1);
  _gfortran_filename = "y.f";
  _gfortran_line = 3;
  _gfortran_ioparm.unit = 6;
  _gfortran_ioparm.list_format = 1;
  _gfortran_st_write ();
  _gfortran_transfer_complex (&avc, 4);
  _gfortran_st_write_done ();;
}

-- 
           Summary: [gfortran]  Intrinsic CLOG returns wrong result
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: bdavis9659 at comcast dot net
                CC: gcc-bugs at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=14540