mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-16 05:11:32 +01:00
740e7ca6b5
tests
o currently not yet integrated in the makefile system, use testall.sh/
testall.bat to run the tests
git-svn-id: branches/jvmbackend@18777 -
20 lines
166 B
ObjectPascal
20 lines
166 B
ObjectPascal
{ %norun }
|
|
program nested;
|
|
|
|
function test : string;
|
|
var
|
|
a, b : integer;
|
|
|
|
function work : integer;
|
|
begin
|
|
a := 1;
|
|
b := 2;
|
|
end;
|
|
|
|
begin
|
|
work;
|
|
end;
|
|
|
|
begin
|
|
end.
|