--- Merging r30862 into '.':

U    tests/webtbs/tw28089.pp
--- Recording mergeinfo for merge of r30862 into '.':
 U   .

# revisions: 30862

git-svn-id: branches/fixes_3_0@31558 -

tests/webtbs/tw28089.pp

@@ -10,8 +10,7 @@ var
 
 begin
  Buf[0] := 'A';
- writeln(ord(Buf[0]));
  StrPLCopy(Buf, '', 0);
- writeln(ord(Buf[0]));
- readln;
+ if Buf[0]<>#0 then
+   halt(1);
 end.