2011-03-31 12:03:32 +02:00
|
|
|
-- RUN: %llvmgcc -S -O2 -gnatn %s -I%p/Support
|
2011-01-24 19:04:33 +01:00
|
|
|
package body Real_Cst is
|
|
|
|
|
Cst : constant Float := 0.0;
|
|
|
|
|
procedure Write (Stream : access Ada.Streams.Root_Stream_Type'Class) is
|
|
|
|
|
begin
|
|
|
|
|
Float'Write (Stream, Cst);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
