Path: utzoo!news-server.csri.toronto.edu!cs.utexas.edu!uunet!mojsys!joevl
From: joevl@mojsys.com (Joe Vlietstra)
Newsgroups: comp.lang.fortran
Subject: Re: Is this kosher?
Summary: No it's not
Message-ID: <1991Mar05.033656.1146@mojsys.com>
Date: 5 Mar 91 03:36:56 GMT
References: <2787@dftsrv.gsfc.nasa.gov>
Reply-To: joevl@mojsys.com (Joe Vlietstra)
Distribution: na
Organization: Mojave Systems Corporation, Claremont, CA
Lines: 31

In article <2787@dftsrv.gsfc.nasa.gov> jim@jagubox.gsfc.nasa.gov (Jim Jagielski) writes:
>[ommitted stuff]
>	.
>	if (value .lt. 0) then
>	   .
>	else
>22	   do something
>	   .
>	end if
>	.
>	if (a.lt.b) goto 22
>
>Is the above legal and acceptable... I can't find any references to it in my
>books...

I can't find my copy of the FStandard, so I can't cite the exact
paragraph.  But jumps into the body of a block IF are definitely
NOT allowed in F77 and I believe they are not allowed in F90.
(I only have a draft of F90 -- back when F8X was a possibility :-)

VAX FORTRAN allows these jumps and many compilers provide VAX
compatibility options to allow these jumps -- but I recommend
rewritting the routine.
				Joe Vlietstra


-- 
------------------------------------------------------------------
Joe Vlietstra        | Checked Daily:  ...!uunet!mojsys!joevl
Mojave Systems Corp  | Checked Weekly: mojave@hmcvax.claremont.edu
1254 Harvard Avenue  | Iffy Routing:   joevl@mojsys.com