public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/14066] New: [gfortran]  Infinite DO loops not recognized.
@ 2004-02-07 19:55 bdavis9659 at comcast dot net
  2004-02-07 22:13 ` [Bug fortran/14066] " pinskia at gcc dot gnu dot org
                   ` (7 more replies)
  0 siblings, 8 replies; 9+ messages in thread
From: bdavis9659 at comcast dot net @ 2004-02-07 19:55 UTC (permalink / raw)
  To: gcc-bugs

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


^ permalink raw reply	[flat|nested] 9+ messages in thread
end of thread, other threads:[~2004-05-14 14:00 UTC | newest]

Thread overview: 9+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-02-07 19:55 [Bug fortran/14066] New: [gfortran] Infinite DO loops not recognized bdavis9659 at comcast dot net
2004-02-07 22:13 ` [Bug fortran/14066] " pinskia at gcc dot gnu dot org
2004-04-22 13:17 ` Tobias dot Schlueter at physik dot uni-muenchen dot de
2004-04-22 13:21 ` Tobias dot Schlueter at physik dot uni-muenchen dot de
2004-05-01 15:19 ` bdavis at gcc dot gnu dot org
2004-05-08 16:14 ` Tobias dot Schlueter at physik dot uni-muenchen dot de
2004-05-08 17:28 ` pinskia at gcc dot gnu dot org
2004-05-14 18:38 ` cvs-commit at gcc dot gnu dot org
2004-05-14 18:47 ` tobi at gcc dot gnu dot org

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).