[BUG reporting] g77 bug

[Craig Burley]

>g77 doesn't support integer*8 fully.  Specifically, you can't specify
>integer*8 constants.  Sorry.
>
>Craig Burley will probably say more when he returns.  I can't remember
>what he said about the problem most recently, but I don't think it is
>trivial to fix.

I forget whether the g77 docs suggest this, but if you are really
desperate, until g77 provides some means to support such constants,
you could define an INTEGER*8 FUNCTION that takes a character string
as an argument and returns the decimal value, e.g.:

	INTEGER*8 FUNCTION INT8C(A)
	CHARACTER*(*) A
	READ (A, '(I30)') INT8C
	END

	PROGRAM FOO
	INTEGER*8 INT8C
	INTEGER*8 BIG
	BIG = INT8C('2147483648')
	PRINT *, BIG
	END

Offhand, this seems to work, but you should check the READ and
format stuff carefully to be sure it'll work as expected (e.g.
in case you have leading blanks).

        tq vm, (burley)