blob: 70d026fdd286b3749a378dfbe1ef5f9afc87e5f0 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-O" }
package body Aggr9 is
procedure Proc (X : R1) is
M : R2 := (F => X);
begin
Send (M);
end;
end Aggr9;