mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 20:09:19 +02:00
+ Added bug #250
This commit is contained in:
parent
8b489a0f24
commit
d9a697f899
24
bugs/bug0250.pp
Normal file
24
bugs/bug0250.pp
Normal file
@ -0,0 +1,24 @@
|
|||||||
|
program testme;
|
||||||
|
|
||||||
|
// 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
|
||||||
|
writeln ('Oh-oh!');
|
||||||
|
end;
|
||||||
|
end.
|
@ -342,4 +342,5 @@ bug0243.pp Arguments of functions are computed from right to left this
|
|||||||
bug0244.pp nested procedures can't have same name as global ones
|
bug0244.pp nested procedures can't have same name as global ones
|
||||||
bug0245.pp assigning pointers to address of consts is allowed (refused by BP !)
|
bug0245.pp assigning pointers to address of consts is allowed (refused by BP !)
|
||||||
bug0246.pp const para can be changed without error
|
bug0246.pp const para can be changed without error
|
||||||
bug0249.pp procedure of object cannot be assigned to property.
|
bug0249.pp procedure of object cannot be assigned to property.
|
||||||
|
bug0250.PP error with Ansistrings and loops.
|
||||||
|
Loading…
Reference in New Issue
Block a user