Test suite results for test file webtbs/tw1023.pp

Test run data :

Test file "webtbs/tw1023.pp" information:

t_id 749
t_cpu i386
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 488056.

Source:

{ %CPU=i386 }
{ Source provided for Free Pascal Bug Report 1023 }
{ Submitted by "Denis Yarkovoy" on  2000-07-03 }
{ e-mail: gunky9@geocities.com }
 {$goto on}
 {$asmmode intel}
 label l1;

var
  pp : pointer;

 procedure p1; assembler; asm
  mov eax, offset l1
  lea edi,pp
  mov dword ptr [edi],eax
 end;

 procedure p; assembler; asm
  l1:
  clc
 end;

begin
 pp:=nil;
 p1;
 if pp=nil then
   halt(1)
 else
   Writeln('Bug 1023 fixed');
end.

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