[llvm-commits] [llvm] r124129 - in /llvm/trunk/test/FrontendAda: Support/real_cst.ads real_cst.adb

[Duncan Sands]

Author: baldrick
Date: Mon Jan 24 12:04:33 2011
New Revision: 124129

URL: http://llvm.org/viewvc/llvm-project?rev=124129&view=rev
Log:
Testcase for dragonegg commit 124128.

Added:
    llvm/trunk/test/FrontendAda/Support/real_cst.ads
    llvm/trunk/test/FrontendAda/real_cst.adb

Added: llvm/trunk/test/FrontendAda/Support/real_cst.ads
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/Support/real_cst.ads?rev=124129&view=auto
==============================================================================
--- llvm/trunk/test/FrontendAda/Support/real_cst.ads (added)
+++ llvm/trunk/test/FrontendAda/Support/real_cst.ads Mon Jan 24 12:04:33 2011
@@ -0,0 +1,4 @@
+with Ada.Streams;
+package Real_Cst is
+   procedure Write (Stream : access Ada.Streams.Root_Stream_Type'Class);
+end;

Added: llvm/trunk/test/FrontendAda/real_cst.adb
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/real_cst.adb?rev=124129&view=auto
==============================================================================
--- llvm/trunk/test/FrontendAda/real_cst.adb (added)
+++ llvm/trunk/test/FrontendAda/real_cst.adb Mon Jan 24 12:04:33 2011
@@ -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;