+ web bug test #1907

tests/webtbs/tw1907.pp

@@ -0,0 +1,17 @@
+{ Source provided for Free Pascal Bug Report 1907 }
+{ Submitted by "Michail A.Baikov" on  2002-03-31 }
+{ e-mail: [email protected] }
+{$MODE DELPHI}
+var
+    a:function (k:byte):Pointer; cdecl;
+    b:function:Pointer;
+begin
+    b:=a(0);
+end.
+
+{
+  $Log$
+  Revision 1.1  2002-04-13 08:05:38  carl
+  + web bug test #1907
+
+}