paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:06:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added

Browse Source 
git-svn-id: trunk@1889 -
This commit is contained in:
Jonas Maebe 2005-12-06 19:47:10 +00:00
parent c9b2e34524
commit 0cfea2fac0
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6388,6 +6388,7 @@ tests/webtbs/tw4496.pp svneol=native#text/plain
tests/webtbs/tw4519.pp -text svneol=unset#text/plain tests/webtbs/tw4519.pp -text svneol=unset#text/plain
tests/webtbs/tw4520.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/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/tw4537.pp svneol=native#text/plain
tests/webtbs/tw4540.pp -text svneol=unset#text/plain tests/webtbs/tw4540.pp -text svneol=unset#text/plain
tests/webtbs/tw4557.pp svneol=native#text/plain tests/webtbs/tw4557.pp svneol=native#text/plain

15
tests/webtbs/tw4533.pp Normal file
View File

@ -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.