11 lines
134 B
Ada
11 lines
134 B
Ada
|
-- { dg-do compile }
|
||
|
|
|
||
|
|
package body Pack15 is
|
||
|
|
|
||
|
|
procedure Transfer is
|
||
|
|
begin
|
||
|
|
O.Status_Flags := Status_Flags;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end Pack15;
|