blob: ddfb9d8a4db514873618191eb6480d85d72fb2c5 [file] [log] [blame]
-- { dg-do compile }
with Pack20_Pkg; use Pack20_Pkg;
package Pack20 is
type Rec is record
Simple_Type : Integer;
Fixed : String_Ptr;
end record;
pragma Pack (Rec);
procedure Proc (A : Rec);
end Pack20;