From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-87710-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 9751 invoked by alias); 3 Mar 2004 04:22:36 -0000
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
Received: (qmail 9742 invoked by uid 48); 3 Mar 2004 04:22:35 -0000
Date: Wed, 03 Mar 2004 04:22:00 -0000
From: "bdavis9659 at comcast dot net" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Message-ID: <20040303042233.14395.bdavis9659@comcast.net>
Reply-To: gcc-bugzilla@gcc.gnu.org
Subject: [Bug fortran/14395] New: [gfortran]  Intrinsic function CMPLX return incorrect with COMPLEX argument
X-Bugzilla-Reason: CC
X-SW-Source: 2004-03/txt/msg00367.txt.bz2
List-Id: <gcc-bugs.sourceware.org>

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