1-- { dg-do compile } 2 3with System; 4 5procedure SSO13 is 6 type Pulse_Buffer_Type is abstract tagged null record 7 with Bit_Order => System.High_Order_First, 8 Scalar_Storage_order =>System.High_order_First; -- { dg-warning "scalar storage order specified but no component clause" } 9 type Pulse_Train_Type is abstract new Pulse_Buffer_Type with null record; 10 type WO_Pulse_Train_Type is new Pulse_Train_Type with null record; 11 type WO_Confirmation_Pulse_Train_Type is new WO_Pulse_Train_Type with record 12 null; 13 end record; 14 15 type Update_Dwell_Type is abstract tagged null record 16 with Bit_Order => System.High_Order_First, 17 Scalar_Storage_order =>System.High_order_First; -- { dg-warning "scalar storage order specified but no component clause" } 18 type Confirmation_Dwell_Type is new Update_Dwell_Type with 19 record 20 Pulses : aliased WO_Pulse_Train_Type; -- (Location of Error #1) 21 end record; 22begin 23 null; 24end; 25