paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:30:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* test should fail

Browse Source
This commit is contained in:
peter 2003-01-15 00:04:19 +00:00
parent ea989e01cc
commit 0fb8abc4c9
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw2285.pp → tests/webtbf/tw2285.pp
View File

@ -1,3 +1,5 @@
{ %fail }
{ Source provided for Free Pascal Bug Report 2285 } { Source provided for Free Pascal Bug Report 2285 }
{ Submitted by "Sergey Kosarevsky" on 2002-12-25 } { Submitted by "Sergey Kosarevsky" on 2002-12-25 }
{ e-mail: netsurfer@au.ru } { e-mail: netsurfer@au.ru }
@ -21,6 +23,8 @@ Begin
End; End;
Begin Begin
{ This should fail, @tobject.init returns a pointer and
is not compatible with a methodpointer }
CheckConstructor(@tObject.Init); CheckConstructor(@tObject.Init);
b:=Longint(Pointer(@tObject.Init)); b:=Longint(Pointer(@tObject.Init));
WriteLn('b: ',b); WriteLn('b: ',b);