paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-23 18:09:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

new test

Browse Source
This commit is contained in:
pierre 2001-02-12 12:18:29 +00:00
parent 1266cc1bb4
commit ca4e083747
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
tests/webtbs/tw1401.pp Normal file
View File

@ -0,0 +1,36 @@
{ 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.