Test suite results for test file tbs/tb0317.pp

Test run data :

Test file "tbs/tb0317.pp" information:

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

Detailed test run results:

Record count: 1

No log of 934963.

Source:

program ts010022;

const
  EXCEPTIONCOUNT = 18;
  exception_names : array[0..EXCEPTIONCOUNT-1] of pchar = (
   'Division by Zero',
   'Debug',
   'NMI',
   'Breakpoint',
   'Overflow',
   'Bounds Check',
   'Invalid Opcode',
   'Coprocessor not available',
   'Double Fault',
   'Coprocessor overrun',
   'Invalid TSS',
   'Segment Not Present',
   'Stack Fault',
   'General Protection Fault',
   'Page fault',
   ' ',
   'Coprocessor Error',
   'Alignment Check');

    single_pchar : pchar = 'Alone test';

const filename  = 'ts010022.tmp';

var en : pchar;
    f : text;
    st : string;
begin
   assign(f,filename);
   rewrite(f);
   en:=single_pchar;
   Writeln(f,en);
   en:=exception_names[6];
   writeln(f,en);
   close(f);
   reset(f);
   readln(f,st);
   if st<>'Alone test' then halt(1);
   readln(f,st);
   if st<>'Invalid Opcode' then halt(1);
   close(f);
end.

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