pascal
/
freepascal.compiler
tükrözi: https://gitlab.com/freepascal.org/fpc/source.git


			
				
					
						
						
							12345678910
							{ %FAIL }

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

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