27 Feb
2006
27 Feb
'06
10:09 a.m.
[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