PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / controlled6_pkg-iterators.adb
blob201a75c94cce6482cd2c734811a4054f7c829a56
1 package body Controlled6_Pkg.Iterators is
3 function Find return Iterator_Type is
4 Iterator : Iterator_Type;
5 begin
6 return Iterator;
7 end Find;
9 function Current (Iterator : in Iterator_Type) return T is begin
10 return Iterator.Current.Item;
11 end Current;
13 procedure Find_Next (Iterator : in out Iterator_Type) is begin
14 Iterator.Current := null;
15 end Find_Next;
17 function Is_Null (Iterator : in Iterator_Type) return Boolean is begin
18 return Iterator.Current = null;
19 end Is_Null;
21 end Controlled6_Pkg.Iterators;