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

Add test for bug report 7210

Browse Source 
git-svn-id: trunk@18153 -
This commit is contained in:
pierre 2011-08-09 13:32:47 +00:00
parent f22ec8545f
commit 2b54f5f961
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

@ -12302,6 +12302,7 @@ tests/webtbs/tw7173.pp svneol=native#text/plain
tests/webtbs/tw7179.pp svneol=native#text/plain tests/webtbs/tw7179.pp svneol=native#text/plain
tests/webtbs/tw7195.pp svneol=native#text/plain tests/webtbs/tw7195.pp svneol=native#text/plain
tests/webtbs/tw7200.pp svneol=native#text/plain tests/webtbs/tw7200.pp svneol=native#text/plain
tests/webtbs/tw7210.pp svneol=native#text/plain
tests/webtbs/tw7227.pp svneol=native#text/plain tests/webtbs/tw7227.pp svneol=native#text/plain
tests/webtbs/tw7242.pp svneol=native#text/plain tests/webtbs/tw7242.pp svneol=native#text/plain
tests/webtbs/tw7262.pp svneol=native#text/plain tests/webtbs/tw7262.pp svneol=native#text/plain

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

@ -0,0 +1,18 @@
{%TARGET=go32v2 }
{ %NOTE=This test requires a go32v2 NASM assembler }
{ %OPT=-Anasmcoff }
{ Check mantis bug report 2710 }
program worldcrash;
var
test : string;
begin
writeln('Hello, world!');
test:='Hello, world!';
if (test[1]<>'H') or (test[length(test)]<>'!') then
begin
writeln('Error within tw7210.pp test');
halt(1);
end;
end.