Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!ucbvax!ucsd!sdcsvax!ucsdhub!hp-sdd!hplabs!hpfcdc!hpfcmr!bobm
From: bobm@hpfcmr.HP.COM (Bob Montgomery)
Newsgroups: comp.sys.hp
Subject: Re: FORTRAN porting question
Message-ID: <1080044@hpfcmr.HP.COM>
Date: 4 Apr 89 15:57:36 GMT
References: <1868@quanta.eng.ohio-state.edu>
Organization: HP Fort Collins, CO
Lines: 28


> I've been given the dubious honor ...
> The code I have to port has lots of loops like:
>	IF (I.EQ.J) GOTO 1000
>	...
>	DO 1000 K=1,77
>	...
>   1000 CONTINUE
>

>My question is, how should this behave?  ...  The Sun f77 compiler
>takes this construction happily, but the HP compiler complains loudly 
>and dies.

The HP Series 300 FORTRAN compiler accepts options to allow certain
FORTRAN extensions from other implementations of FORTRAN.  The one you
need is '+E0'.  According to my FORTRAN/9000 Reference for HP 9000
Series 300 Computers:

   +E0  Enables extended range DO loops and unstructured jumps into IF
        blocks.  Turns off all register allocation.

Using +E0 on a test program based on your example changes the error to a
warning and causes the test program to behave the same on my HP350 as it
does on a Sun 4/260 running SunOS Release 4.0.

Bob Montgomery
Hewlett-Packard