1-- { dg-do compile }
2-- { dg-options "-O" }
3
4package body Opt11 is
5
6   procedure Proc is
7      R : Rec;
8   begin
9      R := (others => <>);
10   end;
11
12end Opt11;
13