Sign in
gnu
/
gcc
/
b2d961e7342b5ba4e57adfa81cb189b738d10901
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt11.adb
blob: 918981410e951f653149ca02947db3a528400b7f [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-O"
}
package
body
Opt11
is
procedure
Proc
is
R
:
Rec
;
begin
R
:=
(
others
=>
<>);
end
;
end
Opt11
;