add pascal shared template

1 files changed, 10 insertions, 14 deletions

diff --git a/tests/projects/pascal/shared/src/foo.pas b/tests/projects/pascal/shared/src/foo.pas
index d1952cf21..788950f46 100644
--- a/tests/projects/pascal/shared/src/foo.pas
+++ b/tests/projects/pascal/shared/src/foo.pas
@@ -1,23 +1,19 @@
 library foo;
 
-function SubStr(CString: PChar;FromPos,ToPos: Longint): PChar; cdecl;
-
-var
-  Length: Integer;
+{$mode objfpc}{$H+}
 
+function fib(n : Int64) : Int64; cdecl;
 begin
-  Length := StrLen(CString);
-  SubStr := CString + Length;
-  if (FromPos > 0) and (ToPos >= FromPos) then
+  if n > 1 then
   begin
-    if Length >= FromPos then
-      SubStr := CString + FromPos;
-    if Length > ToPos then
-    CString[ToPos+1] := #0;
-  end;
+      Result := fib(n - 1) + fib(n - 2);
+  end
+  else
+        Result := 1;
 end;
 
 exports
-  SubStr;
-
+ fib;
 end.
+
+