Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!rutgers!sri-spam!ames!sdcsvax!ucsdhub!hp-sdd!hplabs!hpcea!hpfcdc!hpfcmp!hpfcse!hpunsca!chuck
From: chuck@hpunsca.UUCP
Newsgroups: comp.sys.hp
Subject: Re: HP Fortran problems
Message-ID: <370006@hpunsca.HP.COM>
Date: Thu, 3-Dec-87 07:58:08 EST
Article-I.D.: hpunsca.370006
Posted: Thu Dec  3 07:58:08 1987
Date-Received: Thu, 10-Dec-87 03:06:01 EST
References: <429@auvax.UUCP>
Organization: Hewlett-Packard Canada, Dartmouth, N.S.
Lines: 33


>I would like to install a very large astronomical image processing
>system on an HP9000 series 500 workstation. The image processing
>system's code is largely written in F66 style and contains many
>coding gems of the form
>    REAL TEST
>    DATA TEST/'ABCD'/
>i.e. it uses the old F66 way of storing character data. Now most
>Unix style f77 compilers tend to produce warning messages which tell me
>that this coding style is hardly state-of-the-art, but they do keep
>going and compile the code. (At least they do on a Sun 3 and a VAX 785
>running Ultrix.) Unfortunately the HP9000 compiler produces a fatal
>error message stating that the data types are incompatible and does
>not complete the compilation. Therefore HP's compiler is clearly
>not upwardly compatible with f66 code.

----------

Well, I could be shot on sight by *good* programmers, but here's a solution
which will do the trick (I tried it with my Rev5.11 s500 compiler) -

	REAL TEST
	DATA TEST/4hABCD/      !  Simply edit this statement

This is not great, but it works, and eliminates most of the headaches which
occur when those REALs get equated to some other data type (which probably
happens in code of this vintage, along with GOTOs, etc.).

You should be able to search for all occurrances of this with your editor.

Hope this helps.

Chuck (*not* a great programmer) Munro.