Testcase for dragonegg commit 124128.

llvm-svn: 124129

2 files changed, 12 insertions, 0 deletions

diff --git a/llvm/test/FrontendAda/Support/real_cst.ads b/llvm/test/FrontendAda/Support/real_cst.ads
new file mode 100644
index 00000000000..54a34bc4056
--- /dev/null
+++ b/llvm/test/FrontendAda/Support/real_cst.ads
@@ -0,0 +1,4 @@
+with Ada.Streams;
+package Real_Cst is
+   procedure Write (Stream : access Ada.Streams.Root_Stream_Type'Class);
+end;
diff --git a/llvm/test/FrontendAda/real_cst.adb b/llvm/test/FrontendAda/real_cst.adb
new file mode 100644
index 00000000000..c9708301d62
--- /dev/null
+++ b/llvm/test/FrontendAda/real_cst.adb
@@ -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;