RPCS3/llvm-mirror
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2025-01-31 20:51:52 +01:00
Code Issues Projects Releases Wiki Activity

Testcase for dragonegg commit 124128.

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

4
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
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;