t_id
828
t_adddate
2003/10/03
Flag
t_interactive
set
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=0 Percentage= 0.00
Skipped=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Skipping test because it is interactive | 50 | 100.0 | 2024/05/09 00:34:00 47 | 2024/05/09 01:31:00 0 | |
i386 | 29 | 58.0 | 2024/05/09 00:38:00 32 | 2024/05/09 01:31:00 0 | |
sparc | 2 | 4.0 | 2024/05/09 00:54:00 39 | 2024/05/09 01:13:00 46 | |
x86_64 | 8 | 16.0 | 2024/05/09 00:46:00 21 | 2024/05/09 01:30:00 23 | |
powerpc64 | 9 | 18.0 | 2024/05/09 00:34:00 47 | 2024/05/09 01:26:00 54 | |
aarch64 | 2 | 4.0 | 2024/05/09 00:58:00 35 | 2024/05/09 01:30:00 35 | |
linux | 47 | 94.0 | 2024/05/09 00:34:00 47 | 2024/05/09 01:31:00 0 | |
solaris | 2 | 4.0 | 2024/05/09 00:54:00 39 | 2024/05/09 01:13:00 46 | |
win64 | 1 | 2.0 | 2024/05/09 00:57:00 26 | 2024/05/09 00:57:00 26 | |
3.3.1 | 42 | 84.0 | 2024/05/09 00:34:00 47 | 2024/05/09 01:31:00 0 | |
3.2.3 | 8 | 16.0 | 2024/05/09 00:38:00 32 | 2024/05/09 01:31:00 0 |
{ %interactive } { This test generates an error/retry box on windows } { Source provided for Free Pascal Bug Report 1539 } { Submitted by "Salvatore Licciardi" on 2001-06-30 } { e-mail: turylicciardi@tiscalinet.it } { If the floppy is protect to write, at the end write(ItsPossible)=='TRUE' : ERROR go32v2 on pure Dos specific } program MyProg; uses dos,crt; var copyfx:text; st:string; ItsPossible:boolean; begin Writeln(' To test the bug, first insert a write protected floppy in a:'); Write('Press Return when ready.'); Readln(st); Assign(copyfx,'a:w'); ItsPossible:=true; {$i-} rewrite(copyfx); {$i+} if ioresult<>0 then ItsPossible:=false else begin {$i-} close(copyfx); {$i+} if IOResult<>0 then ItsPossible:=false; end; write(ItsPossible); if ItsPossible then begin {$i-} writeln(copyfx,'Simple write test'); {$i+} Writeln('InOutRes after write atempt = ',IOResult); Close(copyfx); end; end.