mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 04:19:30 +02:00
18 lines
302 B
ObjectPascal
18 lines
302 B
ObjectPascal
{ 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.
|