6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2025-02-06 06:33:24 +00:00
Code Issues Projects Releases Wiki Activity

Testcase for dragonegg commit 124128.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@124129 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Duncan Sands 2011-01-24 18:04:33 +00:00
parent 184640e96e
commit 1f59e09c9a
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;