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

+ test for mantis #6769 (already works with 2.3.1 and 2.2.1)

Browse Source 
git-svn-id: trunk@10892 -
This commit is contained in:
Jonas Maebe 2008-05-06 12:26:18 +00:00
parent ee1757a6c5
commit aa4e14f96a
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

@ -8859,6 +8859,7 @@ tests/webtbs/tw6735.pp svneol=native#text/plain
tests/webtbs/tw6737.pp -text tests/webtbs/tw6737.pp -text
tests/webtbs/tw6742.pp svneol=native#text/plain tests/webtbs/tw6742.pp svneol=native#text/plain
tests/webtbs/tw6767.pp svneol=native#text/plain tests/webtbs/tw6767.pp svneol=native#text/plain
tests/webtbs/tw6769.pp svneol=native#text/plain
tests/webtbs/tw6822a.pp svneol=native#text/plain tests/webtbs/tw6822a.pp svneol=native#text/plain
tests/webtbs/tw6822b.pp svneol=native#text/plain tests/webtbs/tw6822b.pp svneol=native#text/plain
tests/webtbs/tw6822c.pp svneol=native#text/plain tests/webtbs/tw6822c.pp svneol=native#text/plain

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

@ -0,0 +1,18 @@
{$q+}
{$r+}
Var A, B, C : Byte;
D : SmallInt;
Begin
A := 6;
B := 8;
C := 20;
D := -C+A+B;
if (d<>-6) then
halt(1);
Writeln(D);
D := A+B-C;
if (d<>-6) then
halt(1);
Writeln(D)
End.