forked from OSchip/llvm-project
parent
6ae98633dd
commit
7c2b338a7e
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue