[Bug fortran/14921] New: atan2 intrinsic function result error

[Bug fortran/14921] New: atan2 intrinsic function result error

[wf_cs at yahoo dot com]

$ cat atan2.f

        real a
        a = atan2 (-1., -1.0)
        PRINT*,a
        END
 $ gfortran -x f95 atan2.f
 $ ./a.out
  0.7853981
 $ g77 atan2.f
 $ ./a.out
 -2.3561945

-- 
           Summary: atan2 intrinsic function result error
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: wf_cs at yahoo dot com
                CC: gcc-bugs at gcc dot gnu dot org


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

[Bug fortran/14921] [gfortran] atan2 intrinsic function result error

[wf_cs at yahoo dot com]

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
            Summary|atan2 intrinsic function    |[gfortran] atan2 intrinsic
                   |result error                |function result error


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

[Bug fortran/14921] [gfortran] atan2 intrinsic function result error

[pinskia at gcc dot gnu dot org]

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |wrong-code
   Target Milestone|---                         |tree-ssa


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

[Bug fortran/14921] [gfortran] atan2 intrinsic function result error

[bdavis9659 at comcast dot net]

------- Additional Comments From bdavis9659 at comcast dot net  2004-04-13 00:30 -------
with
GNU Fortran 95 (GCC 3.5-tree-ssa 20040411 (merged 20040331))
it gives
  0.7853981

which is correct.  system is i686/gnu/linux, FC1

-- 


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

[Bug fortran/14921] [gfortran] atan2 intrinsic function result error

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-04-13 00:38 -------
Is 0.7853981 really correct, the following C code gives the same as g77: -2.356194?

#include <math.h>
#include <stdio.h>

int main()
{
  double t = atan2(-1., -1.0);
  printf("%f\n", t);
  return 0;
}

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
   Last reconfirmed|0000-00-00 00:00:00         |2004-04-13 00:38:42
               date|                            |


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

[Bug fortran/14921] [gfortran] atan2 intrinsic function result error

[wf_cs at yahoo dot com]

------- Additional Comments From wf_cs at yahoo dot com  2004-04-13 01:51 -------
gfortran is wrong. And I found bug 14540 is depended with this one. I think I 
can fix them.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
OtherBugsDependingO|                            |14540
              nThis|                            |
         AssignedTo|unassigned at gcc dot gnu   |wf_cs at yahoo dot com
                   |dot org                     |
             Status|NEW                         |ASSIGNED


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

[Bug fortran/14921] [gfortran] atan2 intrinsic function result error

[cvs-commit at gcc dot gnu dot org]

------- Additional Comments From cvs-commit at gcc dot gnu dot org  2004-04-18 17:29 -------
Subject: Bug 14921

CVSROOT:	/cvs/gcc
Module name:	gcc
Branch: 	tree-ssa-20020619-branch
Changes by:	pbrook@gcc.gnu.org	2004-04-18 17:29:26

Modified files:
	gcc/fortran    : ChangeLog arith.c arith.h simplify.c 
	gcc/testsuite  : ChangeLog.tree-ssa 
	gcc/testsuite/gfortran.fortran-torture/execute: math.f90 

Log message:
	PR fortran/14921
	PR fortran/14540
	* arith.c (arctangent2): New function.
	* arith.h (arctangent2): Add function prototype.
	* simplify.c (gfc_simplify_atan2): Use it.
	(gfc_simplify_log): Use it.
	testsuite
	PR fortran/14921
	PR fortran/14540
	* gfortran.fortran-torture/execute/math.f90: Add atan2 and clog
	simplify test.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&only_with_tag=tree-ssa-20020619-branch&r1=1.1.2.139&r2=1.1.2.140
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/arith.c.diff?cvsroot=gcc&only_with_tag=tree-ssa-20020619-branch&r1=1.1.2.4&r2=1.1.2.5
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/arith.h.diff?cvsroot=gcc&only_with_tag=tree-ssa-20020619-branch&r1=1.1.2.2&r2=1.1.2.3
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/simplify.c.diff?cvsroot=gcc&only_with_tag=tree-ssa-20020619-branch&r1=1.1.2.5&r2=1.1.2.6
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.tree-ssa.diff?cvsroot=gcc&only_with_tag=tree-ssa-20020619-branch&r1=1.1.2.223&r2=1.1.2.224
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.fortran-torture/execute/math.f90.diff?cvsroot=gcc&only_with_tag=tree-ssa-20020619-branch&r1=1.1.2.1&r2=1.1.2.2



-- 


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

[Bug fortran/14921] [gfortran] atan2 intrinsic function result error

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-04-18 18:02 -------
Fixed.

-- 


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

[Bug fortran/14921] [gfortran] atan2 intrinsic function result error

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-04-18 18:08 -------
Forgot to close.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED


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