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

+ test for previous commit

Browse Source 
git-svn-id: trunk@10363 -
This commit is contained in:
Jonas Maebe 2008-02-19 20:24:22 +00:00
parent e9108ed51c
commit 1cdf575657
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7622,6 +7622,7 @@ tests/webtbf/tw0896a.pp svneol=native#text/plain
tests/webtbf/tw10425a.pp svneol=native#text/plain tests/webtbf/tw10425a.pp svneol=native#text/plain
tests/webtbf/tw10457.pp svneol=native#text/plain tests/webtbf/tw10457.pp svneol=native#text/plain
tests/webtbf/tw10833a.pp svneol=native#text/plain tests/webtbf/tw10833a.pp svneol=native#text/plain
tests/webtbf/tw10849.pp svneol=native#text/plain
tests/webtbf/tw1157a.pp svneol=native#text/plain tests/webtbf/tw1157a.pp svneol=native#text/plain
tests/webtbf/tw1238.pp svneol=native#text/plain tests/webtbf/tw1238.pp svneol=native#text/plain
tests/webtbf/tw1251a.pp svneol=native#text/plain tests/webtbf/tw1251a.pp svneol=native#text/plain

10
tests/webtbf/tw10849.pp Normal file
View File

@ -0,0 +1,10 @@
{ %fail }
{ %opt=-Se1w2 }
var
pc: pchar;
m,m1: longword;
begin
m:=1;
pc^:=char(m-(m1*10)+byte('0'));
end.