{ %fail } type tenum=(ea); var p: pointer; e: tenum; begin if e<>p then ; end.