Test suite results for test file tbs/tb0020.pp

Test run data :

Test file "tbs/tb0020.pp" information:

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

Detailed test run results:

Record count: 1

No log of 1015783.

Source:

{ Old file: tbs0024.pp }
{  }


type
  charset=set of char;

  trec=record
     junk : array[1..32] of byte;
     t    : charset;
  end;

  var
     tr    : trec;
     tp    : ^trec;


  procedure Crash(const k:charset);

    begin
       tp^.t:=[#7..#10]+k;
    end;

  begin
     tp:=@tr;
     Crash([#20..#32]);
  end.

Link to SVN view of tbs/tb0020.pp source.