no message

tests/webtbs/tw3168.pp

@@ -0,0 +1,15 @@
+{ Source provided for Free Pascal Bug Report 3168 }
+{ Submitted by "Henri Gourvest" on  2004-06-15 }
+{ e-mail: [email protected] }
+program Untitled1;
+{ $MODE objfpc}
+type
+  TClazz = class
+  private
+    f: procedure(x: Integer); cdecl;
+  public
+    x: integer;
+  end;
+
+begin
+end.