Add test for bug report 7210

git-svn-id: trunk@18153 -

.gitattributes

@@ -12302,6 +12302,7 @@ tests/webtbs/tw7173.pp svneol=native#text/plain
 tests/webtbs/tw7179.pp svneol=native#text/plain
 tests/webtbs/tw7195.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/tw7242.pp svneol=native#text/plain
 tests/webtbs/tw7262.pp svneol=native#text/plain

tests/webtbs/tw7210.pp

@@ -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.