t_id
1065
t_adddate
2003/10/14
Flag
t_graph
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 uses graph | 50 | 100.0 | 2024/05/08 03:47:00 39 | 2024/05/08 05:07:00 57 | |
| i386 | 5 | 10.0 | 2024/05/08 03:47:00 39 | 2024/05/08 04:30:00 60 | |
| sparc | 5 | 10.0 | 2024/05/08 03:54:00 52 | 2024/05/08 05:07:00 57 | |
| x86_64 | 29 | 58.0 | 2024/05/08 03:48:00 35 | 2024/05/08 04:55:00 13 | |
| powerpc64 | 6 | 12.0 | 2024/05/08 04:00:00 58 | 2024/05/08 04:58:00 86 | |
| aarch64 | 5 | 10.0 | 2024/05/08 03:58:00 39 | 2024/05/08 05:00:00 43 | |
| linux | 43 | 86.0 | 2024/05/08 03:47:00 39 | 2024/05/08 05:00:00 43 | |
| go32v2 | 2 | 4.0 | 2024/05/08 03:49:00 59 | 2024/05/08 04:30:00 60 | |
| solaris | 5 | 10.0 | 2024/05/08 03:54:00 52 | 2024/05/08 05:07:00 57 | |
| 3.3.1 | 18 | 36.0 | 2024/05/08 03:50:00 14 | 2024/05/08 05:07:00 57 | |
| 3.2.3 | 32 | 64.0 | 2024/05/08 03:47:00 39 | 2024/05/08 05:00:00 43 |
{ %GRAPH }
{ Source provided for Free Pascal Bug Report 1050 }
{ Submitted by "Jonathan Ball" on 2000-07-17 }
{ e-mail: j.ball@rgu.ac.uk }
PROGRAM test;
USES Crt, Graph;
VAR
bpoint : pointer;
bsize, actual : longint;
f : file;
s : string;
i : BYTE;
{------------------PROCEDURES-------------------}
PROCEDURE GraphInit;
VAR gd,gm : INTEGER;
BEGIN
gd:=VGA; {gd:=DETECT;} gm:=VGAHi;
InitGraph (gd,gm, '.gi');
gd:=graphresult;
IF gd<>grok THEN
BEGIN
WRITELN('Error initialising graphic card!');
WRITELN(grapherrormsg(gd));HALT;
END
END;
{---------------MAIN PROGRAM BODY----------------}
BEGIN
GraphInit;
i := 0;
s := 'test'; {set file name}
REPEAT
i := i + 1; {increment size}
BSize := ImageSize(0,0,i,i); {buffer size}
GETMEM(bpoint,bsize); {reserve buffer}
GetImage(0,0,i,i,bpoint^); {store in buffer}
writeln(i,' ',bsize);
ASSIGN(f,s);
REWRITE(f,1);
BLOCKWRITE(f,bpoint^,bsize,actual);
CLOSE(f);
FREEMEM(bpoint,bsize); {release memory}
UNTIL (i=255){FALSE}; {until error}
CloseGraph;
END.
{OUTPUT: program runs OK until i=31 and }
{bsize=2060 bytes. When i increments to 32}
{(bsize=2190), runtime error is generated }