test/FrontendAda/real_cst.adb

   1 -- RUN: %llvmgcc -S -O2 -gnatn %s -I%p/Support
   2 package body Real_Cst is
   3    Cst : constant Float := 0.0;
   4    procedure Write (Stream : access Ada.Streams.Root_Stream_Type'Class) is
   5    begin
   6       Float'Write (Stream, Cst);
   7    end;
   8 end;