* new bug

2025-09-13 14:49:10 +02:00 · 2004-12-27 17:17:49 +00:00 · 2004-12-27 17:17:49 +00:00 · bbc3aed3b2
commit bbc3aed3b2
parent 0a1c6b36a4
1 changed files with 25 additions and 0 deletions
--- a/tests/webtbs/tw3457.pp
+++ b/tests/webtbs/tw3457.pp
@ -0,0 +1,25 @@
+{ Source provided for Free Pascal Bug Report 3457 }
+{ Submitted by "Ales Katona (Almindor)" on  2004-12-19 }
+{ e-mail: ales@chello.sk }
+
+{$mode objfpc}
+{$inline on}
+
+type TTest = class
+      private
+       procedure testit; inline;
+      public // error is reported here
+       constructor Create;
+     end;
+
+       procedure TTest.testit; inline;
+       begin
+       end;
+
+       constructor TTest.Create;
+       begin
+       end;
+
+begin
+end.
+