From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 27231 invoked by alias); 24 May 2003 21:37:17 -0000 Mailing-List: contact gcc-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-owner@gcc.gnu.org Received: (qmail 27174 invoked from network); 24 May 2003 21:37:15 -0000 Received: from unknown (HELO troutmask.apl.washington.edu) (128.208.78.105) by sources.redhat.com with SMTP; 24 May 2003 21:37:15 -0000 Received: from troutmask.apl.washington.edu (localhost [127.0.0.1]) by troutmask.apl.washington.edu (8.12.8/8.12.7) with ESMTP id h4OLbFPR008206 for ; Sat, 24 May 2003 14:37:15 -0700 (PDT) (envelope-from kargl@troutmask.apl.washington.edu) Received: (from kargl@localhost) by troutmask.apl.washington.edu (8.12.8/8.12.8/Submit) id h4OLbFCm008205 for gcc@gcc.gnu.org; Sat, 24 May 2003 14:37:15 -0700 (PDT) From: "Steven G. Kargl" Message-Id: <200305242137.h4OLbFCm008205@troutmask.apl.washington.edu> Subject: more illegal code in g77 testsuite To: gcc@gcc.gnu.org Date: Sat, 24 May 2003 22:30:00 -0000 MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset=US-ASCII X-SW-Source: 2003-05/txt/msg02204.txt.bz2 980519-2.f contains illegal Fortran; yet g77 compiles it without a warning or an error. A cut-down version of 980519-2.f is subroutine simul_trace(in, Xsp) common /Idim/ jT_f, hd_T, jT_l real Xsp real in(jT_f-hd_T:jT_l) in(jT_f-hd_T) = Xsp end The expression jT_f-hd_T is illegal because hd_T is a real variable. -- Steve http://troutmask.apl.washington.edu/~kargl/