projects
/
oota-llvm.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
fix rdar://9297011 - udiv by power of two causing fast-isel rejects
[oota-llvm.git]
/
test
/
FrontendAda
/
real_cst.adb
1
-- RUN: %llvmgcc -S -O2 -gnatn %s -I%p/Support
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;