compiler: give error for non-int arguments to make
[official-gcc.git] / gcc / testsuite / gnat.dg / opt11.adb
blob918981410e951f653149ca02947db3a528400b7f
1 -- { dg-do compile }
2 -- { dg-options "-O" }
4 package body Opt11 is
6 procedure Proc is
7 R : Rec;
8 begin
9 R := (others => <>);
10 end;
12 end Opt11;