From 38df5b4eae9c65ca88a6e7d5edd22ac3a9f6edc9 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 18 May 2008 19:05:45 +0000
Subject: [PATCH] + needs library

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

diff --git a/tests/test/tlib1.pp b/tests/test/tlib1.pp
index a53b4afe3d..73a90022a7 100644
--- a/tests/test/tlib1.pp
+++ b/tests/test/tlib1.pp
@@ -1,4 +1,5 @@
 { %opt=-gl }
+{ %needlibrary }
 {$goto on}
 
 { test lineinfo in libraries }
@@ -30,7 +31,7 @@ w:
   GetLineInfo(PtrUInt(@w),s1,s2,l);
   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<>20) then
     halt(1);
   
   writeln('ok');