From 24f273f43c09458bc8e7b4fb8312cdc4b7363425 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 1 Oct 2005 20:48:20 +0000
Subject: [PATCH] * new test
git-svn-id: trunk@1243 -
---
.gitattributes | 1 +
tests/webtbs/tw4398.pp | 23 +++++++++++++++++++++++
2 files changed, 24 insertions(+)
create mode 100644 tests/webtbs/tw4398.pp
diff --git a/.gitattributes b/.gitattributes
index a9b2ad3b26..b98cb6b3f2 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -6310,6 +6310,7 @@ tests/webtbs/tw4308.pp svneol=native#text/plain
tests/webtbs/tw4336.pp svneol=native#text/plain
tests/webtbs/tw4350.pp svneol=native#text/plain
tests/webtbs/tw4388.pp svneol=native#text/plain
+tests/webtbs/tw4398.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw4398.pp b/tests/webtbs/tw4398.pp
new file mode 100644
index 0000000000..3e5b30517d
--- /dev/null
+++ b/tests/webtbs/tw4398.pp
@@ -0,0 +1,23 @@
+{$mode tp}
+
+procedure display(s:string);
+var L:longint;
+begin
+ for l:=1 to length(s) do
+ begin
+ case s[l]of
+ '^':begin
+ INC(L);
+ case s[l] of
+ 'M':writeln;
+ else write('^'=s[l]);
+ end;
+ end;
+ else write(s[l]);
+ end;
+ end;
+end;
+
+begin
+DISPLAY('^MHello Line One^M');
+end.