1with Ada.Numerics; use Ada.Numerics;
2with System;
3
4package Init9 is
5
6  type R1 is record
7    F : Long_Float;
8  end record;
9  for R1'Bit_Order use System.Low_Order_First;
10  for R1'Scalar_Storage_Order use System.Low_Order_First;
11  for R1 use record
12    F at 0 range 0 .. 63;
13  end record;
14
15  type R2 is record
16    F : Long_Float;
17  end record;
18  for R2'Bit_Order use System.High_Order_First;
19  for R2'Scalar_Storage_Order use System.High_Order_First;
20  for R2 use record
21    F at 0 range 0 .. 63;
22  end record;
23
24  My_R1 : constant R1 := (F => Pi);
25  My_R2 : constant R2 := (F => Pi);
26
27end Init9;
28