[Bug fortran/14395] New: [gfortran] Intrinsic function CMPLX return incorrect with COMPLEX argument

[Bug fortran/14395] New: [gfortran] Intrinsic function CMPLX return incorrect with COMPLEX argument

[bdavis9659 at comcast dot net]

Distilled from NIST F77 compiler validation suite, test FM829.


CMPLEX is not returning the entire value when called with a COMPLEX argument.


$ cat z.f
        COMPLEX BVC,AVC
        AVC = (1.0,0.5)
        BVC = CMPLX(AVC)
        print*,bvc,avc
        end
 
 
$ /usr/local/bin/gfortran -static z.f
$ ./a.out
(   1.000000    ,   0.000000    ) (   1.000000    ,  0.5000000    )
                      ^
                      should be 0.5

Here is how it looks with g77:


$ g77 z.f
$ ./a.out
 (1.,0.5) (1.,0.5)

-- 
           Summary: [gfortran]  Intrinsic function CMPLX return incorrect
                    with COMPLEX argument
           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=14395

[Bug fortran/14395] [gfortran] Intrinsic function CMPLX return incorrect with COMPLEX argument

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-03-03 04:38 -------
Definitely a front-end issue:
  avc = __complex__ (1.0e+0, 5.0e-1);
  bvc = COMPLEX_EXPR <REALPART_EXPR <avc>, 0.0>;

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
           Keywords|                            |wrong-code
   Last reconfirmed|0000-00-00 00:00:00         |2004-03-03 04:38:13
               date|                            |
   Target Milestone|---                         |tree-ssa


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

[Bug fortran/14395] [gfortran] Intrinsic function CMPLX return incorrect with COMPLEX argument

[cvs-commit at gcc dot gnu dot org]

------- Additional Comments From cvs-commit at gcc dot gnu dot org  2004-04-11 12:43 -------
Subject: Bug 14395

CVSROOT:	/cvs/gcc
Module name:	gcc
Branch: 	tree-ssa-20020619-branch
Changes by:	pbrook@gcc.gnu.org	2004-04-11 12:43:15

Modified files:
	gcc/fortran    : ChangeLog trans-intrinsic.c 

Log message:
	PR 14395
	* trans-intrinsic.c (gfc_conv_intrinsic_cmplx): Fix the imag part of
	the result.

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.135&r2=1.1.2.136
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/trans-intrinsic.c.diff?cvsroot=gcc&only_with_tag=tree-ssa-20020619-branch&r1=1.1.2.28&r2=1.1.2.29



-- 


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

[Bug fortran/14395] [gfortran] Intrinsic function CMPLX return incorrect with COMPLEX argument

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-04-11 16:06 -------
Fixed.

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


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