PROGRAM DEFCALLFUNC;
%KEYEDENTRY ON
FUNCTION CALLFUNC(FUNCTION FUNC:INTEGER):INTEGER;
VAR VAL:INTEGER;
BEGIN
CALLFUNC:=FUNC;
END;
BEGIN
END.