gcc/testsuite/gnat.dg/controlled6_pkg-iterators.adb

   1 package body Controlled6_Pkg.Iterators is
   2
   3    function Find return Iterator_Type is
   4       Iterator : Iterator_Type;
   5    begin
   6       return Iterator;
   7    end Find;
   8
   9    function Current (Iterator : in Iterator_Type) return T is begin
  10       return Iterator.Current.Item;
  11    end Current;
  12
  13    procedure Find_Next (Iterator : in out Iterator_Type) is begin
  14       Iterator.Current := null;
  15    end Find_Next;
  16
  17    function Is_Null (Iterator : in Iterator_Type) return Boolean is begin
  18       return Iterator.Current = null;
  19    end Is_Null;
  20
  21 end Controlled6_Pkg.Iterators;