Path: utzoo!attcan!uunet!lll-winken!lll-lcc!ames!amdahl!sri-unix!garth!smryan
From: smryan@garth.UUCP (Xxxxxx Xxxx)
Newsgroups: comp.lang.fortran
Subject: Re: Dubious Fortran Construct
Message-ID: <2220@garth.UUCP>
Date: 15 Dec 88 21:53:58 GMT
References: <22994@sgi.SGI.COM> <3672@s.cc.purdue.edu> <1740@devsys.oakhill.UUCP> <14994@mimsy.UUCP>
Reply-To: smryan@garth.UUCP (Xxxxxx Xxxx)
Organization: Xxxxxxxxxx (XXX) -- Xxxx Xxxx, XX
Lines: 23

>	DO I=A,B
>	IF (cond) GOTO 10
>	DO J=C,D
>	code
>   10	CONTINUE
>	end do J
>	end do I
>	more code
>
>That is, because the DO J loop used label 10 as its final statement,
>its end appears just *after* the continue statement.  The `IF' therefore
>jumps into its loop.

This is precisely the internal data structure used in FTN200.

The FTN200 reference manual explicitly excludes the case of jumping to a
common end label from outer loops.
-- 
                                                   -- x x xxxx
+------------------------------------+-----------------------------------------+
|`Xx X-Xxxx xx xxxxx Xxxxxxx xxxxx,  |`Xxxxx xx xxxxxx xxx xxxx xxx            |
| Xxxxxxx xxx'x xxxxxx.'             |xxxxxxxxxxxxxx xxx xxxxx xxxx xxxxxxx xxx|
|           -Xxxxxx Xxxx             |xx. Xx xxxx xx xx xx xxxxxxxxx.'  -X Xxxx|
+------------------------------------+-----------------------------------------+