diff --git a/bugs/bug0200.pp b/bugs/bug0200.pp new file mode 100644 index 0000000000..964922e437 --- /dev/null +++ b/bugs/bug0200.pp @@ -0,0 +1,7 @@ +var + p : array[0..6] of char; +begin + p:='test'; + writeln(copy(p,1,3)); +end. + diff --git a/bugs/readme.txt b/bugs/readme.txt index da013b431b..690e19039d 100644 --- a/bugs/readme.txt +++ b/bugs/readme.txt @@ -222,7 +222,7 @@ Fixed bugs: bug0194.pp @procedure var returns value in it instead of address !! OK 0.99.11 (PM) bug0195.pp Problem with Getimage, crash of DOS box, even with dpmiexcp!! (PFV) Not a bug, you must use p^. - + bug0196.pp "function a;" is accepted (should require result type) OK 0.99.1 (PM) bug0197.pp should produce an error: problem with c1:=c2