mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 07:09:29 +02:00
new bug
git-svn-id: trunk@246 -
This commit is contained in:
parent
21425e303c
commit
919b18f280
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -6138,6 +6138,7 @@ tests/webtbs/tw3977.txt svneol=native#text/plain
|
||||
tests/webtbs/tw4010.pp svneol=native#text/plain
|
||||
tests/webtbs/tw4013.pp svneol=native#text/plain
|
||||
tests/webtbs/tw4038.pp svneol=native#text/plain
|
||||
tests/webtbs/tw4055.pp svneol=native#text/plain
|
||||
tests/webtbs/ub1873.pp svneol=native#text/plain
|
||||
tests/webtbs/ub1883.pp svneol=native#text/plain
|
||||
tests/webtbs/uw0555.pp svneol=native#text/plain
|
||||
|
11
tests/webtbs/tw4055.pp
Normal file
11
tests/webtbs/tw4055.pp
Normal file
@ -0,0 +1,11 @@
|
||||
{$WRITEABLECONST OFF}
|
||||
|
||||
procedure TestBuf(const Buf; Size: Integer);
|
||||
begin
|
||||
end;
|
||||
|
||||
const A : Byte = 1;
|
||||
|
||||
begin
|
||||
TestBuf(A, 1);
|
||||
end.
|
Loading…
Reference in New Issue
Block a user