From 664247d5d656c64ed5c64e5bfcbd3b1d7f400343 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 21 May 2008 17:26:03 +0000
Subject: [PATCH]   + added linklib statement so it works on Darwin

git-svn-id: trunk@11027 -
---
 tests/test/tlib1.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/test/tlib1.pp b/tests/test/tlib1.pp
index 65d605362e..5b243ca06c 100644
--- a/tests/test/tlib1.pp
+++ b/tests/test/tlib1.pp
@@ -8,6 +8,8 @@
 uses
   {$ifdef unix}dl,{$endif unix}sysutils;
 
+{$linklib tlib1a}
+
 procedure p(var a : pointer);external 'tlib1a' name 'p';
 
 var
@@ -32,7 +34,7 @@ w:
   s2:=ExtractFilename(s2);
   writeln({ 'Func: ',s1,'} 'Source: ',s2,' Line: ',l);
   { GetLineInfo of dwarf doesn't return the function name }
-  if { (s1<>'P') or } (s2<>'tlib1.pp') or (l<>19) then
+  if { (s1<>'P') or } (s2<>'tlib1.pp') or (l<>21) then
     halt(1);
 
   writeln('ok');