Test suite results for test file webtbs/tw3226.pp

Test run data :

Test file "webtbs/tw3226.pp" information:

t_id 1324
t_adddate 2004/08/08
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015805.

Source:

{ Source provided for Free Pascal Bug Report 3226 }
{ Submitted by "marco" on  2004-08-03 }
{ e-mail:  }
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type Ty = type Pointer;

procedure p(y : ty);
  begin
    halt(0);
  end;

procedure p(y : pointer);
  begin
    writeln('type p = type pointer; problem');
    halt(1);
  end;

var y : ty;

begin
  p(y);
end.

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