maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

Testcase for dragonegg commit 124128. 

llvm-svn: 124129
This commit is contained in:
Duncan Sands 2011-01-24 18:04:33 +00:00
parent 689939e648
commit f7bde9a192
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
llvm/test/FrontendAda/Support/real_cst.ads Normal file
View File

@ -0,0 +1,4 @@
with Ada.Streams;
package Real_Cst is
procedure Write (Stream : access Ada.Streams.Root_Stream_Type'Class);
end;

8
llvm/test/FrontendAda/real_cst.adb Normal file
View File

@ -0,0 +1,8 @@
-- 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;