add pascal shared template

1 files changed, 7 insertions, 8 deletions

diff --git a/tests/projects/pascal/shared/src/main.pas b/tests/projects/pascal/shared/src/main.pas
index ccf2e179b..02d5e88d0 100644
--- a/tests/projects/pascal/shared/src/main.pas
+++ b/tests/projects/pascal/shared/src/main.pas
@@ -1,14 +1,13 @@
-uses strings;
+program hello;
 
-function SubStr(const CString: PChar; FromPos, ToPos: longint): PChar;
+function fib(n: Int64): Int64;
   cdecl; external 'foo';
 
 var
-  s: PChar;
-  FromPos, ToPos: Integer;
+  Value: Integer;
 begin
-  s := strnew('TestMe');
-  FromPos := 2;
-  ToPos := 3;
-  WriteLn(SubStr(s, FromPos, ToPos));
+  Value := 5;
+  WriteLn(fib(Value));
 end.
+
+