* test for parameter symoptions

git-svn-id: trunk@7322 -

.gitattributes

@@ -8192,6 +8192,7 @@ tests/webtbs/tw8777g.pp svneol=native#text/plain
 tests/webtbs/tw8777i.pp svneol=native#text/plain
 tests/webtbs/tw8810.pp svneol=native#text/plain
 tests/webtbs/tw8838.pp svneol=native#text/plain
+tests/webtbs/tw8861.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain

tests/webtbs/tw8861.pp

@@ -0,0 +1,34 @@
+{$mode objfpc}{$H+}
+
+uses
+ Classes, SysUtils
+  { add your units here };
+
+type
+  TNotifyEventExt = procedure(ASender: TObject; ANotifyType: integer) of
+object;
+
+  TNotify = class
+  strict private
+    FOnNotify: TNotifyEventExt;
+  strict  protected
+    procedure test;
+  public
+    constructor Create;
+  end;
+
+
+constructor TNotify.Create;
+begin
+  inherited Create;
+  FOnNotify := nil;
+end;
+
+procedure TNotify.test;
+begin
+   FOnNotify(nil, 0); //project1.pas(30,13) Fatal: Syntax error, ";" expected but "(" found
+end;
+
+begin
+end.
+