@@ -7893,9 +7893,7 @@ package body Exp_Aggr is
return False;
end if;
- if not Is_Scalar_Type (Component_Type (Typ))
- and then Has_Non_Standard_Rep (Component_Type (Typ))
- then
+ if not Is_Scalar_Type (Ctyp) then
return False;
end if;
new file mode 100644
@@ -0,0 +1,5 @@
+package body Packed_Array is
+
+ procedure Dummy is null;
+
+end;
new file mode 100644
@@ -0,0 +1,9 @@
+with Packed_Array_Pkg; use Packed_Array_Pkg;
+
+package Packed_Array is
+
+ C : constant Small_Rec2 := (Lo => 1, Hi => Max, A => (1 => (2, 3)));
+
+ procedure Dummy;
+
+end;
new file mode 100644
@@ -0,0 +1,20 @@
+package Packed_Array_Pkg is
+
+ type Rec1 is record
+ I : Integer;
+ S : Short_Integer;
+ end record;
+ for Rec1'Size use 49;
+
+ type Arr is array (Positive range <>) of Rec1;
+ for Arr'Component_Size use 49;
+
+ type Rec2 (Lo, Hi : Positive) is record
+ A : Arr (Lo .. Hi);
+ end record;
+
+ Max : Positive := 1;
+
+ subtype Small_Rec2 is Rec2 (1, Max);
+
+end;