paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 15:32:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

- replaced by /cg/taddcar.pas

Browse Source
This commit is contained in:
carl 2001-05-09 18:52:10 +00:00
parent b65c09f18b
commit e7e8a8bde4
1 changed files with 0 additions and 102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
tests/test/tmath2.pp
View File

@ -1,102 +0,0 @@
Program TestCardinal;
{ Tests different features of the cardinal type }
{ We must also test range checking thereafter }
Procedure TestEqualAssign;
var
l : longint;
i : cardinal;
j : cardinal;
Begin
l:=$80000000; { longint }
i:=l; { longint -> cardinal }
j:=i; { cardinal -> cardinal }
l:=j; { cardinal -> longint }
end;
Procedure TestBiggerAssign;
var
b: byte;
c: char;
s: shortint;
i: integer;
w: word;
j: cardinal;
Begin
b:=0;
c:=#$7f;
s:=120;
i:=16384;
w:=32767;
j:=b; { byte -> cardinal }
{ THIS LINE CRASHES THE COMPILER FPC v0.99.5a }
{ j:=c;} { char -> cardinal }
j:=ord(c);{ char -> cardinal }
j:=s; { shortint -> cardinal }
j:=i; { integer -> cardinal }
j:=w; { word -> cardinal }
end;
Procedure TestSmallerAssign;
var
b: byte;
c: char;
s: shortint;
i: integer;
w: word;
j: cardinal;
Begin
j:=$ffffffff;
b:=byte(j);
c:=char(j);
s:=shortint(j);
i:=integer(j);
w:=word(j);
end;
Procedure TestMul;
var
j: cardinal;
k: cardinal;
Begin
j:=1;
k:=$8000000;
j:=j*16384;
j:=j*k
end;
Procedure TestDiv;
var
j: cardinal;
k: cardinal;
Begin
j:=1;
k:=$8000000;
j:=j div 16384;
j:=j div k;
k:=k mod 200;
end;
Procedure TestAdd;
Begin
end;
Procedure TestSub;
Begin
end;
Begin
TestEqualAssign;
TestBiggerAssign;
TestSmallerAssign;
TestMul;
TestDiv;
end.