From 1f59e09c9ac391fb8305f2cd52492e2ac70bd782 Mon Sep 17 00:00:00 2001 From: Duncan Sands Date: Mon, 24 Jan 2011 18:04:33 +0000 Subject: [PATCH] Testcase for dragonegg commit 124128. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@124129 91177308-0d34-0410-b5e6-96231b3b80d8 --- test/FrontendAda/Support/real_cst.ads | 4 ++++ test/FrontendAda/real_cst.adb | 8 ++++++++ 2 files changed, 12 insertions(+) create mode 100644 test/FrontendAda/Support/real_cst.ads create mode 100644 test/FrontendAda/real_cst.adb diff --git a/test/FrontendAda/Support/real_cst.ads b/test/FrontendAda/Support/real_cst.ads new file mode 100644 index 00000000000..54a34bc4056 --- /dev/null +++ b/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/test/FrontendAda/real_cst.adb b/test/FrontendAda/real_cst.adb new file mode 100644 index 00000000000..c9708301d62 --- /dev/null +++ b/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; -- 2.34.1