mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-07 07:45:56 +02:00
* test for wrong warning when accessing length of unwritten
open array out-parameters git-svn-id: trunk@6906 -
This commit is contained in:
parent
887fe0dd9c
commit
bcfed2bc74
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -6227,6 +6227,7 @@ tests/tbs/tb0530.pp svneol=native#text/plain
|
|||||||
tests/tbs/tb0531.pp svneol=native#text/plain
|
tests/tbs/tb0531.pp svneol=native#text/plain
|
||||||
tests/tbs/tb0532.pp svneol=native#text/x-pascal
|
tests/tbs/tb0532.pp svneol=native#text/x-pascal
|
||||||
tests/tbs/tb0533.pp svneol=native#text/plain
|
tests/tbs/tb0533.pp svneol=native#text/plain
|
||||||
|
tests/tbs/tb0534.pp svneol=native#text/plain
|
||||||
tests/tbs/ub0060.pp svneol=native#text/plain
|
tests/tbs/ub0060.pp svneol=native#text/plain
|
||||||
tests/tbs/ub0069.pp svneol=native#text/plain
|
tests/tbs/ub0069.pp svneol=native#text/plain
|
||||||
tests/tbs/ub0119.pp svneol=native#text/plain
|
tests/tbs/ub0119.pp svneol=native#text/plain
|
||||||
|
11
tests/tbs/tb0534.pp
Normal file
11
tests/tbs/tb0534.pp
Normal file
@ -0,0 +1,11 @@
|
|||||||
|
{ %opt=-Sew }
|
||||||
|
|
||||||
|
{$mode objfpc}
|
||||||
|
|
||||||
|
procedure test(out l: array of char);
|
||||||
|
begin
|
||||||
|
writeln(length(l));
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
end.
|
Loading…
Reference in New Issue
Block a user