t_id
742
t_cpu
i386
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=4 Percentage= 8.00
Skipped=46 Percentage= 92.00
{ %CPU=i386 } {$ifdef TP} {$N+} {$endif TP} PROGRAM fadd_bug; VAR x,y,z,t: double; BEGIN x:=4.5; y:=5.5; {$ifndef TP} {$asmmode intel} {$endif TP} asm fld x fld y fadd fstp z end; t:=x+y; if (z<>10.0) or (z<>t) then begin Writeln('Error in FADD handling'); Halt(1); end else Writeln('FADD assembler instruction works'); END.