tests/webtbs/tw25916a.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ %OPT=-Sh}
{$MODE OBJFPC}
{$OPTIMIZATION DFA}
{$HINTS ON}
program test;

procedure TestText(var F: Text);
begin
   Writeln(F, 'Test'); // Hint: Local variable "F" does not seem to be initialized
end;

begin
   TestText(Output);
end.