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

+ added

Browse Source
This commit is contained in:
Jonas Maebe 2003-07-25 11:53:47 +00:00
parent c3326c434a
commit a1db92451c
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/webtbs/tw2540.pp Normal file
View File

@ -0,0 +1,19 @@
var
C : Char;
S : AnsiString;
begin
S := '';
SetLength(S,1);
S[1] := '?';
SetLength(S,2);
S[2] := '?';
if (s <> '??') then
halt(1);
S := '';
S := S + '?';
S := S + '?';
if (s <> '??') then
halt(1);
end.