Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!bloom-beacon!apple!oliveb!ames!sgi!calvin@dinkum.SGI.COM
From: calvin@dinkum.SGI.COM (Calvin H. Vu)
Newsgroups: comp.lang.fortran
Subject: Re: DO loops, anyone?
Summary: Test used in the last posting
Message-ID: <28518@sgi.SGI.COM>
Date: 13 Mar 89 19:09:20 GMT
References: <458@orange19.qtp.ufl.edu>
Sender: daemon@sgi.SGI.COM
Organization: Silicon Graphics, Inc., Mountain View, CA
Lines: 23


In my last article I posted the test results from steve without posting
the test itself so it maight be confusing to the people who did not follow
the last discussion.    So, here it is:

	K = 0
	DO 10 I = 1,10
	IF (I.EQ.1.OR.I.EQ.5) GOTO 10
	DO 10 J = 1,10
	IF (J.EQ.3) GOTO 10
10	K = K + 1
	PRINT *,K
	END

BTW, this was NOT a good test since you have no control over the initial
value of J.   So the three compilers (Cyber 855, Harris H-800, and Harris f77)
might have produced the correct result just because J happenned to have an 
uninitialized random value >10 when the test was run.

Sorry for all the doom-saying,

Calvin H. Vu
Silicon Graphics Computer Systems,