5 procedure Bit_Order1
is
7 type Sample_Ttype
is tagged record
11 type Other_Type
is new Sample_Ttype
with record
12 Other_Data
: String (1 .. 100);
15 for Other_Type
'Bit_Order use System
.High_Order_First
; -- { dg-error "Bit_Order cannot be defined for record extensions" }