paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 13:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added run time testing

Browse Source 
git-svn-id: trunk@8514 -
This commit is contained in:
Jonas Maebe 2007-09-16 19:22:15 +00:00
parent ccde9c0c99
commit b426d8898a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/toperator6.pp
View File

@ -12,6 +12,8 @@ type Tconstexprint=record
operator := (const u:qword):Tconstexprint;
begin
if (u<>high(int64)+100) then
halt(1);
result.overflow:=false;
result.signed:=false;
result.uvalue:=u;
@ -19,6 +21,8 @@ end;
operator := (const s:int64):Tconstexprint;
begin
if (s<>-128) then
halt(2);
result.overflow:=false;
result.signed:=true;
result.svalue:=s;