blob: 019b2da0f7873f1c4e0d00d2d2badde3cc0f7b4b [file] [log] [blame]
-- { dg-do compile }
package body Pack15 is
procedure Transfer is
begin
O.Status_Flags := Status_Flags;
end;
end Pack15;