pascal
/
freepascal.compiler
peilaus alkaen https://gitlab.com/freepascal.org/fpc/source.git


			
				
					
						
						
							123456789101112
							{ %fail }

type
  dummyrec = record
    i : int64;
  end;

var
   d: double;
begin
   d := double(dummyrec($ffffffff80000000));
end.