aboutsummaryrefslogtreecommitdiffstats
path: root/test/FrontendAda/real_cst.adb
blob: c9708301d62f749d5ecf3c12695752ec2c7bb1f3 (plain)
1
2
3
4
5
6
7
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;