[Bug fortran/14066] New: [gfortran] Infinite DO loops not recognized.

["bdavis9659 at comcast dot net" <gcc-bugzilla at gcc dot gnu dot org>]

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