initial import

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@1 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 31 insertions, 0 deletions

diff --git a/tests/webtbs/tw2030.pp b/tests/webtbs/tw2030.pp
new file mode 100644
index 0000000000..726bf02052
--- /dev/null
+++ b/tests/webtbs/tw2030.pp
@@ -0,0 +1,31 @@
+{ Source provided for Free Pascal Bug Report 2030 }
+{ Submitted by "Michalis Kamburelis" on  2002-07-06 }
+{ e-mail: mkambi@poczta.onet.pl }
+program wrong_delphi_overloads_handling;
+
+{$mode delphi}
+{under objfpc mode there will be no bug}
+
+const
+  err : boolean = true;
+
+procedure p;            overload; forward;
+procedure p(a:integer); overload; forward;
+
+{ it doesn't matter if we add clause "overload"
+  to p's definitions below; the error will still
+  prevent this code from compiling }
+
+procedure p;
+begin
+  err:=false;
+end;
+
+procedure p(a:integer); overload;
+begin end;
+
+begin
+  p;
+  if err then
+   halt(1);
+end.