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

+ added

Browse Source
This commit is contained in:
Jonas Maebe 2002-09-04 16:21:46 +00:00
parent 650eb87f8c
commit 303ad8de46
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/tbs/tb0404.pp Normal file
View File

@ -0,0 +1,17 @@
type
G = object
public
B:procedure;
{ the 1.1 compiler parses the next "public" as a procdirective of the preceding procedure }
public
constructor init;
end;
constructor G.init;
begin
B:=nil;
end;
begin
end.