gcc/testsuite/gnat.dg/opt90a_pkg.ads

package Opt90a_Pkg is

  type Rec is record
    A : Short_Short_Integer;
    B : Integer;
    C : String (1 .. 12);
  end record;
  pragma Pack (Rec);
  for Rec'Alignment use 1;

  type Data is tagged record
    R : Rec;
  end record;

end Opt90a_Pkg;