Expressions with subrange operands

27 Feb 2006


      [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