summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw2651.pp
blob: 7a7dc64c0a5b39ea84e62fe273955644e5c9db7c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{ %version=1.1 }

{ Source provided for Free Pascal Bug Report 2651 }
{ Submitted by "Sergey Kosarevsky" on  2003-08-23 }
{ e-mail: netsurfer@au.ru }
{$mode objfpc}
{$inline on}

Type tMyClass=Class
        Class Procedure InlineProc;Inline;
     End;

Class Procedure tmyClass.InlineProc;Inline;
Begin
End;

Begin
   tMyClass.InlineProc;
End.