{ %FAIL } program tb0228; var f: Single; begin f := 2.e; end.