From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 15691 invoked by alias); 19 Feb 2002 22:26:00 -0000 Mailing-List: contact gcc-prs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-prs-owner@gcc.gnu.org Received: (qmail 15655 invoked by uid 71); 19 Feb 2002 22:26:00 -0000 Resent-Date: 19 Feb 2002 22:26:00 -0000 Resent-Message-ID: <20020219222600.15654.qmail@sources.redhat.com> Resent-From: gcc-gnats@gcc.gnu.org (GNATS Filer) Resent-To: nobody@gcc.gnu.org Resent-Cc: gcc-prs@gcc.gnu.org, gcc-bugs@gcc.gnu.org Resent-Reply-To: gcc-gnats@gcc.gnu.org, toon@moene.indiv.nluug.nl Received:(qmail 11911 invoked by uid 61); 19 Feb 2002 22:24:23 -0000 Message-Id:<20020219222423.11909.qmail@sources.redhat.com> Date: Tue, 19 Feb 2002 14:26:00 -0000 From: toon@moene.indiv.nluug.nl Reply-To: toon@moene.indiv.nluug.nl To: gcc-gnats@gcc.gnu.org X-Send-Pr-Version:gnatsweb-2.9.3 (1.1.1.1.2.31) Subject: middle-end/5731: g77 SIGSEGVs on simple routine mixing complex, real arithmetic (from BLAS) X-SW-Source: 2002-02/txt/msg00484.txt.bz2 List-Id: >Number: 5731 >Category: middle-end >Synopsis: g77 SIGSEGVs on simple routine mixing complex, real arithmetic (from BLAS) >Confidential: no >Severity: serious >Priority: high >Responsible: unassigned >State: open >Class: ice-on-legal-code >Submitter-Id: net >Arrival-Date: Tue Feb 19 14:26:00 PST 2002 >Closed-Date: >Last-Modified: >Originator: Toon Moene >Release: 3.1-20020219, regression w.r.t. 3.0.3 >Organization: >Environment: i686-pc-linux-gnu, alpha-unknown-linux-gnu, powerpc-unknown-linux-gnu >Description: g77 -O -ffast-math SIGSEGVs on: subroutine crotg(ca,cb,c,s) complex ca,cb,s real c real norm,scale complex alpha if (cabs(ca) .ne. 0.) go to 10 c = 0. s = (1.,0.) ca = cb go to 20 10 continue scale = cabs(ca) + cabs(cb) norm = scale * sqrt((cabs(ca/scale))**2 + (cabs(cb/scale))**2) alpha = ca /cabs(ca) c = cabs(ca) / norm s = alpha * conjg(cb) / norm ca = alpha * norm 20 continue return end >How-To-Repeat: >Fix: >Release-Note: >Audit-Trail: >Unformatted: