MODULE Test; IMPORT SYSTEM, Out; TYPE R = RECORD END; VAR i : INTEGER; l : LONGINT; BEGIN i := SYSTEM.VAL(INTEGER, l); END Test.