fpc/tw5001.pp at monitor_support - fpc - brudnopis.ovh - Gitea

paweld/fpc

mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 23:28:28 +02:00

florian edaa0b3014 * changing tests to fix regressions is only the last resort, so this should be sorted out by other means, r19116 reverted

--- Reverse-merging r19116 into '.':
U    tests\webtbs\tw4675.pp
U    tests\webtbs\tw7758.pp
U    tests\webtbs\tw18702.pp
U    tests\webtbs\tw3595.pp
U    tests\webtbs\tw5001.pp
U    tests\webtbs\tw2250.pp
U    tests\webtbs\tw3492.pp
U    tests\webtbs\tw16004.pp
 G   .
--- Recording mergeinfo for reverse merge of r19116 into '.':
 G   .

git-svn-id: trunk@19135 -

2011-09-17 18:19:47 +00:00

18 lines

302 B

ObjectPascal

Raw Permalink Blame History

 { Source provided for Free Pascal Bug Report 5001 }
 { Submitted by "Vincent Snijders" on  2006-04-09 }
 { e-mail: vsnijders@quicknet.nl }
 program Project1;
 {$mode objfpc}{$H+}
 resourcestring
   s = 'test';
 begin
   writeln(s);
   if length(s)=0
     then halt(1);
   if (s<>'test')
     then halt(1);
 end.