Will not compile without the spec!

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@128623 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Duncan Sands 2011-03-31 10:03:32 +00:00
parent f202c43de1
commit 021cf96ffc

View File

@ -1,4 +1,4 @@
-- RUN: %llvmgcc -S -O2 -gnatn %s
-- RUN: %llvmgcc -S -O2 -gnatn %s -I%p/Support
package body Real_Cst is
Cst : constant Float := 0.0;
procedure Write (Stream : access Ada.Streams.Root_Stream_Type'Class) is