Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
warn20_pkg.adb
blob: 7ee7ab735dda44b4e2747b2bcb94438b65ebd964 [
file
] [
log
] [
blame
]
package
body
Warn20_Pkg
is
L
:
array
(
1
..
10
)
of T
:=
(
1
..
10
=>
None
);
procedure
Foo
is
begin
for
A of L loop
exit
when
A
=
None
;
Dispatch
(
A
);
end
loop
;
end
;
end
;