t_id
1209
t_adddate
2003/12/04
t_result
0
t_knownrunerror
0
t_opts
-Sen
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525631760 | 948216 | True | False | Successfully run |
Record count: 1
{ %opt=-Sen } { Source provided for Free Pascal Bug Report 2817 } { Submitted by "Mattias Gaertner" on 2003-11-30 } { e-mail: mattias@freepascal.org } program UnusedVar; {$mode objfpc}{$H+} procedure DoSomething(var Lines: PPChar; var LineCount: integer); var p: PPChar; begin p:=Lines; p[LineCount-1]:=nil; end; begin end.