Path: utzoo!utgpu!utstat!jarvis.csri.toronto.edu!mailrus!csd4.milw.wisc.edu!zdenko
From: zdenko@csd4.milw.wisc.edu (Zdenko Tomasic)
Newsgroups: comp.lang.fortran
Subject: Re: DO loops, anyone?
Summary: illegal code
Keywords: FORTRAN, DO, LOOPS
Message-ID: <1525@csd4.milw.wisc.edu>
Date: 12 Mar 89 01:50:02 GMT
References: <458@orange19.qtp.ufl.edu>
Sender: news@csd4.milw.wisc.edu
Reply-To: zdenko@csd4.milw.wisc.edu (Zdenko Tomasic)
Organization: University of Wisconsin-Milwaukee
Lines: 269

In article <458@orange19.qtp.ufl.edu> bernhold@qtp.ufl.edu (David E. Bernholdt) writes:
>
>I run the following code on my Sun 3/50 with VMS compatible f77:
>
>      PROGRAM LOOP
>      IGO = 1
>      DO 501 I = 1, 10
>         WRITE (6,*) 'OUTER LOOP, I =',I
>         IF (IGO .NE. 0) GOTO 501
                               ^^^ This branch is illegal
>         DO 501 J = 1, 5
>            WRITE (6,*) 'INNER LOOP, J=',J
> 501     CONTINUE
 ^^^^ since it jumps into the inner loop from outside
>         STOP
>         END
>

(lines to fool stupid inews, hit n key now)
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
--
___________________________________________________________________
Zdenko Tomasic, UWM, Chem. Dept., P.O. Box 413, Milwaukee, WI 53201
UUCP: uwvax!uwmcsd1!uwmcsd4!zdenko
ARPA: zdenko@csd4.milw.wisc.edu