new bug

git-svn-id: trunk@246 -

.gitattributes

@@ -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

tests/webtbs/tw4055.pp

@@ -0,0 +1,11 @@
+{$WRITEABLECONST OFF}
+
+procedure TestBuf(const Buf; Size: Integer);
+begin
+end;
+
+const A : Byte = 1;
+
+begin
+  TestBuf(A, 1);
+end.