freepascal.compiler/tests/tbs/tbs0084.pp

{$R-}

{ Basic Pascal principles gone done the drain... !!!! }

var
 v: word;
 w: shortint;
 z: byte;
 y: integer;
Begin
 y:=64000;
 z:=32767;
 w:=64000;
 v:=-1;
end.