mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 06:19:32 +02:00
30 lines
468 B
ObjectPascal
30 lines
468 B
ObjectPascal
program testme;
|
|
|
|
uses erroru;
|
|
|
|
// Removing this switch removes the bug !!
|
|
{$H+}
|
|
|
|
var A : String;
|
|
P : PChar;
|
|
I : longint;
|
|
|
|
begin
|
|
P := 'Some sample testchar';
|
|
A := Ansistring(P);
|
|
Writeln ('A : ',A);
|
|
for I:=1 to length(A)-1 do
|
|
begin
|
|
A:='Some small test';
|
|
A:=A+' ansistring';
|
|
Writeln ('A : ',A);
|
|
If A<>'' then
|
|
Writeln ('All is fine')
|
|
else
|
|
begin
|
|
writeln ('Oh-oh!');
|
|
error;
|
|
end;
|
|
end;
|
|
end.
|