Test suite results for test file webtbf/tw3375.pp

Test run data :

Test file "webtbf/tw3375.pp" information:

t_id 1389
t_adddate 2004/11/01
t_result 0
Flag t_fail set
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015553.

Source:

{ %fail }

{ Source provided for Free Pascal Bug Report 3375 }
{ Submitted by "Vincent Snijders" on  2004-10-29 }
{ e-mail: vslist@zonnet.nl }
program typecast;

{$mode objfpc}{$H+}

type
  T4bytes = array[0..3] of byte;

var
  w: word;
  p: pchar;
  a: T4bytes;

begin
  w := 0;
  // The next line should compile, delphi compatible
  p := pchar(w);
  // should fail, and it does
  a := T4Bytes(w);
end.

Link to SVN view of webtbf/tw3375.pp source.