mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-24 14:09:10 +02:00
15 lines
234 B
ObjectPascal
15 lines
234 B
ObjectPascal
{ %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.
|