Merged revisions 1889 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

r1889 (jonas)
  + added

git-svn-id: branches/fixes_2_0@1890 -

.gitattributes

@@ -6111,6 +6111,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/ub1873.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.
+