{ %FAIL } program tb0226; var f: Single; begin f := 2.efoo; end.