usr/share/fpcsrc/3.2.0/tests/tbf/tb0155a.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / tbf / tb0155a.pp

{ %FAIL }

{ addr(@(x)) should be refused in normal mode }

var
 x:function(x:longint):longint;
 w:pointer;
begin
 w:=addr(@x);
end.