Test suite results for test file webtbs/tw2037.pp

Test run data :

Test file "webtbs/tw2037.pp" information:

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

Detailed test run results:

Record count: 1

No log of 940442.

Source:

{ Source provided for Free Pascal Bug Report 2037 }
{ Submitted by "David Hagler" on  2002-07-11 }
{ e-mail: david@avimark.net }
program tw2037;

const
  FILE_FLAG_WRITE_THROUGH = -2147483648;
  FILE_ATTRIBUTE_NORMAL = 128;

var
  anattr : cardinal;

begin
  anattr := FILE_FLAG_WRITE_THROUGH or FILE_ATTRIBUTE_NORMAL;
end.

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