* fixed test

git-svn-id: trunk@11008 -

tests/test/tlib1.pp

@@ -14,7 +14,7 @@ begin
   p(a);
   GetLineInfo(PtrUInt(a),s1,s2,l);
   writeln('Func: ',s1,' Source: ',s2,' Line: ',l);
-  if (s1<>'P') or (s2<>'tlib1a.pp') or (l<>7) then
+  if (s1<>'P') or (s2<>'tlib1a.pp') or (l<>9) then
     halt(1);
   writeln('ok');
 end.

tests/test/tlib1a.pp

@@ -1,4 +1,5 @@
 { %norun }
+{ %opt=-gl }
 {$goto on}
 library tlib1a;