MODULE Test; IMPORT Out; VAR f : BOOLEAN; r, e : POINTER TO RECORD END; BEGIN f := r = e; IF f THEN Out.String('Yes'); Out.Ln; END; END Test.