From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 29382 invoked by alias); 7 Feb 2004 19:55:57 -0000 Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org Received: (qmail 29375 invoked by uid 48); 7 Feb 2004 19:55:56 -0000 Date: Sat, 07 Feb 2004 19:55:00 -0000 From: "bdavis9659 at comcast dot net" To: gcc-bugs@gcc.gnu.org Message-ID: <20040207195550.14066.bdavis9659@comcast.net> Reply-To: gcc-bugzilla@gcc.gnu.org Subject: [Bug fortran/14066] New: [gfortran] Infinite DO loops not recognized. X-Bugzilla-Reason: CC X-SW-Source: 2004-02/txt/msg00900.txt.bz2 List-Id: Do loops like these: DO ... ENDDO and DO 100 ... 100 CONTINUE are probably not standard F77, but are used in existing code. both of these work with g77. Below is a (non) compilable example. $ cat dl.f I = 0 DO 10 IF (I.EQ.20) EXIT I = I + 1 10 CONTINUE PRINT*,'I is ',I END $ /usr/local/bin/gfortran -static dl.f In file dl.f:2 DO 10 1 Error: Unclassifiable statement at (1) In file dl.f:3 IF (I.EQ.20) EXIT 1 Error: EXIT statement at (1) is not within a loop $ g77 -ff77 dl.f $ ./a.out I is 20 $ /usr/local/bin/gfortran --version GNU Fortran 95 (GCC 3.5-tree-ssa 20040207 (merged 20040126)) Copyright (C) 2003 Free Software Foundation, Inc. -- Summary: [gfortran] Infinite DO loops not recognized. 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=14066