Test suite results for test file webtbs/tw0900.pp

Test run data :

Test file "webtbs/tw0900.pp" information:

t_id 728
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940787.

Source:

program Test;

uses strings;

var Str1 : PChar;

begin
  GetMem(Str1,256);
  StrPCopy (Str1, ParamStr(0));
  writeln ('Arg 0 is "',Str1,'"');
  StrPCopy (Str1, ParamStr(1));
  writeln ('Arg 1 is "',Str1,'"');
  FreeMem(Str1,256);
end.

Link to SVN view of webtbs/tw0900.pp source.