blob: 75143710252f1be848b1a8260c144a76ce29a544 (
plain)
1
2
3
4
5
6
7
8
|
-- RUN: %llvmgcc -S -O2 -gnatn %s -I%p/Support
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;
|