* new test

git-svn-id: trunk@1243 -

.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

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.