mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 11:24:14 +02:00
17 lines
297 B
ObjectPascal
17 lines
297 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 2975 }
|
|
{ Submitted by "Michalis Kamburelis" on 2004-02-15 }
|
|
{ e-mail: michalis@camelot.homedns.org }
|
|
procedure p;
|
|
const
|
|
t:array[0..0]of AnsiString = ('blah');
|
|
begin
|
|
Writeln('''', t[0], '''');
|
|
if t[0]='' then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
p;
|
|
p;
|
|
end.
|