mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2025-03-02 07:30:52 +00:00
1f59e09c9a
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@124129 91177308-0d34-0410-b5e6-96231b3b80d8
9 lines
221 B
Ada
9 lines
221 B
Ada
-- RUN: %llvmgcc -S -O2 -gnatn %s
|
|
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;
|