Test suite results for test file webtbs/tw1401.pp

Test run data :

Free Pascal Compiler Test Suite Results

View Test suite results

Please specify search criteria:
File:
Operating system:
Processor:
Version
Date
Submitter
Machine
Comment
Limit
Cond
Category
Only failed tests
Hide skipped tests
List all tests

Test file "webtbs/tw1401.pp" information:

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

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Result type Cat. Count Percentage First date Last Date
Successfully run 50 100.0 2024/05/16 22:26:00 31 2024/05/17 00:57:00 35
i386 21 42.0 2024/05/16 22:58:00 34 2024/05/17 00:57:00 35
sparc 18 36.0 2024/05/16 23:24:00 38 2024/05/16 23:55:00 41
x86_64 10 20.0 2024/05/16 22:26:00 31 2024/05/17 00:51:00 23
aarch64 1 2.0 2024/05/17 00:12:00 32 2024/05/17 00:12:00 32
linux 7 14.0 2024/05/16 23:34:00 28 2024/05/17 00:57:00 35
win32 3 6.0 2024/05/16 22:58:00 34 2024/05/16 23:57:00 23
solaris 38 76.0 2024/05/16 22:26:00 31 2024/05/16 23:55:00 41
win64 2 4.0 2024/05/17 00:25:00 23 2024/05/17 00:51:00 23
3.3.1 27 54.0 2024/05/16 22:58:00 34 2024/05/17 00:12:00 32
3.2.3 23 46.0 2024/05/16 22:26:00 31 2024/05/17 00:57:00 35

Source:

{ Source provided for Free Pascal Bug Report 1401 }
{ Submitted by "Bill" on  2001-02-10 }
{ e-mail: lingolanguage@hotmail.com }

(*
Compiles using Delphi 4 (v12):
  dcc32 fpc5
Does not compile in FPC (1.0.4) using:
  ppc386 -Sd fpc5
*)

program fpc10;

{
  uses sysutils,windows;
}

const BUFMAX = 10;
      CHSIZE = 1;
var fFile:file;
    buffer:string[10];
    uiNumread:cardinal;

procedure test;
begin
  (* don't run this! *)
  blockread (fFile, buffer, BUFMAX*CHSIZE, uiNumread);
  blockread (fFile, buffer, cardinal(BUFMAX*CHSIZE), uiNumread);
  blockwrite (fFile, buffer, BUFMAX*CHSIZE, uiNumread);
  blockwrite (fFile, buffer, cardinal(BUFMAX*CHSIZE), uiNumread);
end;

begin
  Writeln('Test for cardinal version of blockread/blockwrite');
end.

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