Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!ucbvax!ucsd!sdcsvax!ucsdhub!hp-sdd!hplabs!hpfcdc!cunniff
From: cunniff@hpfcdc.HP.COM (Ross Cunniff)
Newsgroups: comp.lang.fortran
Subject: Re: FORTRAN porting question
Message-ID: <5140002@hpfcdc.HP.COM>
Date: 4 Apr 89 16:16:21 GMT
References: <1868@quanta.eng.ohio-state.edu>
Organization: HP Ft. Collins, Co.
Lines: 23

(regarding code like:
	IF (I .EQ. J) GOTO 1000
	DO 1000 K=1,77
1000	CONTINUE

hideous though it may be)

In all releases after and including 5.5, the HP-UX S300 f77 compiler
has had an option, +E0, that allows this construct (although it will
emit a warning about 'jump into block from line x').  Note that there
is no 'correct' interpretation of this code, so the actual behaviour
of the code is system dependent, even if it successfully compiles.

If you are interested in cross-vendor compatibilty and you do not
have the latest version (soon to be 6.5) of the compiler, contact
your local HP sales office to get an update; the later releases
have contained substantial portability enhancements as well as
greatly improved optimization and development environment enhancements.

				Ross Cunniff
				Hewlett-Packard Colorado Languages Lab
				...{ucbvax,hplabs}!hpfcla!cunniff
				cunniff%hpfcrt@hplabs.HP.COM