t_id
1324
t_adddate
2004/08/08
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{ 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.