[G5:gpc/testgpc/adriaan] adriaan% cat testsubrange.p
program testsubrange;
type
int16 = integer attribute( size = 16);
int32 = integer attribute( size = 32);
point = record x,y: real end;
var
i: int16;
procedure P( size: int32);
begin
writeln( 'size = ', size)
end;
begin
i:= 3658;
P( i * SizeOf( point));
end.
[G5:gpc/testgpc/adriaan] adriaan% gp testsubrange.p
[G5:gpc/testgpc/adriaan] adriaan% ./testsubrange
size = -7008
Any comments ?
Regards,
Adriaan van Os