mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 17:49:33 +02:00
13 lines
132 B
ObjectPascal
13 lines
132 B
ObjectPascal
{ %fail }
|
|
program ConstString;
|
|
|
|
procedure Test;
|
|
const TestString='abc';'def';
|
|
begin
|
|
writeln(TestString);
|
|
end;
|
|
|
|
begin
|
|
Test;
|
|
end.
|