freepascal.compiler/tests/tbs/tb0077.pp

{ Old file: tbs0084.pp }
{  no more pascal type checking                          OK 0.99.1 (FK) }

{$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.