* new test

git-svn-id: trunk@980 -

.gitattributes

@@ -6187,6 +6187,7 @@ tests/webtbs/tw4247.pp svneol=native#text/plain
 tests/webtbs/tw4253.pp svneol=native#text/plain
 tests/webtbs/tw4260.pp svneol=native#text/plain
 tests/webtbs/tw4277.pp svneol=native#text/plain
+tests/webtbs/tw4336.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/tw4336.pp

@@ -0,0 +1,9 @@
+uses SysUtils;
+
+var A : array [1..10] of Char;
+
+begin
+
+writeln (Trim (A));
+
+end.