mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:08:22 +02: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 -
34 lines
288 B
ObjectPascal
34 lines
288 B
ObjectPascal
{ %norun }
|
|
|
|
program forw;
|
|
|
|
{$mode delphi}
|
|
|
|
type
|
|
TC = class
|
|
public
|
|
procedure execute;
|
|
end;
|
|
|
|
procedure tc.execute;
|
|
|
|
procedure nested1; forward;
|
|
|
|
procedure nested2;
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure nested1;
|
|
begin
|
|
|
|
end;
|
|
|
|
begin
|
|
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|