fpc/tests/tbf/tb0228.pp

{ %FAIL }

program tb0228;

var
  f: Single;
begin
  f := 2.e;
end.