mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-01 12:22:35 +02:00
25 lines
293 B
ObjectPascal
25 lines
293 B
ObjectPascal
{ %OPT=-Sew }
|
|
{ %fail }
|
|
{ this should generate a warning
|
|
because s is not initialized }
|
|
|
|
{$mode tp}
|
|
|
|
Program test;
|
|
|
|
type
|
|
SimpleProc = Procedure;
|
|
|
|
procedure test_provar;
|
|
var x,y:integer;
|
|
s : SimpleProc;
|
|
|
|
begin
|
|
{y:=5;
|
|
for x:=0 to 10 do if x<y then writeln(x);}
|
|
s;
|
|
end;
|
|
|
|
begin
|
|
end.
|