summaryrefslogtreecommitdiff
path: root/test/FrontendAda/real_cst.adb
blob: 75143710252f1be848b1a8260c144a76ce29a544 (plain)
1
2
3
4
5
6
7
8
-- 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
   begin
      Float'Write (Stream, Cst);
   end;
end;