paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 04:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Test for locally initialized variables

Browse Source
This commit is contained in:
michael 2003-01-02 11:19:42 +00:00
parent fbd28675c9
commit 780b31cdb3
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/test/tinivar.pp Normal file
View File

@ -0,0 +1,18 @@
{ %VERSION=1.1 }
program tinivar;
procedure p1;
var
a : integer = 1;
begin
writeln(a);
if a<>1 then
halt(1);
inc(a);
end;
begin
p1;
p1;
end.