🚀 go-pugleaf

Transposrting some pascal code from a BSD4.2 system to a SUN3.0 system
I ran into some range check problems.  The first would appear to be
an actual error (in the ISO defintion), and the other a SUN pascal
bug.

-----
program q(input,output);

var
	a : 0 .. 100;
	i : integer;

begin
	i := 0;
	for a := 0 to i-1 do
		writeln(output, a);
end.
-----
program z;

var
	c : char;
	i : -128 .. 127;

begin
	i := 10;
	c := chr( i );
end.
-----

For more entertainment I tried the same programs under TOPS-20/Rutgers
and VMS v4 pascal:

	q	z
TOPS	err	ok
SUN	err	err
BSD	ok	ok
VMS	ok	ok


The range violation in Z clearly a SUN bug, but Q would
appear to be implementation dependant, it all depends
on when you perform the range check (and if you check the
loop limits before you start).

Phil Budne / Boston University / Distributed Systems