blob: d67977afc545df83b7211a7817f6e71364a21049 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ 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.
|
