+ added

git-svn-id: trunk@1889 -

.gitattributes

@@ -6388,6 +6388,7 @@ tests/webtbs/tw4496.pp svneol=native#text/plain
 tests/webtbs/tw4519.pp -text svneol=unset#text/plain
 tests/webtbs/tw4520.pp -text svneol=unset#text/plain
 tests/webtbs/tw4529.pp -text svneol=unset#text/plain
+tests/webtbs/tw4533.pp svneol=native#text/plain
 tests/webtbs/tw4537.pp svneol=native#text/plain
 tests/webtbs/tw4540.pp -text svneol=unset#text/plain
 tests/webtbs/tw4557.pp svneol=native#text/plain

tests/webtbs/tw4533.pp

@@ -0,0 +1,15 @@
+{$mode objfpc}
+{$openstrings+}
+procedure t(out s: shortstring);
+begin
+  writeln(high(s));
+  if high(s) <> 4 then
+    halt(1);
+end;
+
+var
+  s: string[4];
+begin
+  t(s);
+end.
+