paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 22:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* test fixed

Browse Source
This commit is contained in:
peter 2004-11-01 08:03:21 +00:00
parent 9f811b8bca
commit 9806510b53
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/webtbf/tw3375.pp
View File

@ -17,7 +17,9 @@ var
begin
w := 0;
p := pchar(w); // should fail, because sizeof(w)<>sizeof(p) on this platform.
//a := T4Bytes(w); // should fail, and it does
// The next line should compile, delphi compatible
p := pchar(w);
// should fail, and it does
a := T4Bytes(w);
end.