+ Add overloaded Testne function in test1 unit

git-svn-id: trunk@19834 -

ide/test.pas

@@ -201,5 +201,10 @@ BEGIN
   dispose(X);
  { for i:=1 to 99 do
     Writeln('Line ',i); }
+  if (TestOne<>1) or (TestOne(5)<>5) or (TestOne('6')<>6) then
+    begin
+      Writeln('Error while testing TestOne function overloads');
+      RunError(200);
+    end;
   Halt(4);
 END.

ide/test1.pas

@@ -1,9 +1,37 @@
 unit test1;
 
+{$mode objfpc}
+
 { dummy unit for test of dbx stabs info PM }
 
 interface
 
+function TestOne : longint;
+function TestOne(val : longint) : longint; overload;
+function TestOne(val : string) : longint; overload;
+
+
 implementation
 
+function TestOne : longint;
+begin
+  result:=1;
+end;
+
+function TestOne(val : longint) : longint; overload;
+begin
+  result:=val;
+end;
+
+function TestOne(val : string) : longint; overload;
+var
+  value, error : longint;
+begin
+  system.val(val,value,error);
+  if error=0 then
+    result:=value
+  else
+    result:=-1;
+end;
+WWWWW
 end.