paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 12:50:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ new test

Browse Source 
git-svn-id: trunk@3567 -
This commit is contained in:
florian 2006-05-18 19:36:11 +00:00
parent 55962cef95
commit 5e4776f4ce
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6818,6 +6818,7 @@ tests/webtbs/tw5023.pp svneol=native#text/plain
tests/webtbs/tw5036.pp svneol=native#text/plain
tests/webtbs/tw5082.pp -text svneol=unset#text/plain
tests/webtbs/tw6491.pp svneol=native#text/plain
tests/webtbs/tw6684.pp svneol=native#text/plain
tests/webtbs/tw6742.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain

18
tests/webtbs/tw6684.pp Normal file
View File

@ -0,0 +1,18 @@
Var
D : LongInt;
d1,d2 : int64;
Begin
D := -100;
{$OVERFLOWCHECKS on}
Writeln(2 * D);
d1:=d*2;
{$OVERFLOWCHECKS off}
Writeln(2 * D);
d2:=d*2;
if d1<>-200 then
halt(1);
if d2<>-200 then
halt(1);
writeln('ok');
End.