projects
/
oota-llvm.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
c9708301d62f749d5ecf3c12695752ec2c7bb1f3
[oota-llvm.git]
/
test
/
FrontendAda
/
real_cst.adb
1
-- RUN: %llvmgcc -S -O2 -gnatn %s
2
package body Real_Cst is
3
Cst : constant Float := 0.0;
4
procedure Write (Stream : access Ada.Streams.Root_Stream_Type'Class) is
5
begin
6
Float'Write (Stream, Cst);
7
end;
8
end;