OSDN Git Service

* tree-cfg.c (call_can_make_abnormal_goto): New predicate.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / controlled6.adb
1 -- { dg-do compile }
2 -- { dg-options "-O -gnatn" }
3
4 with Ada.Text_IO; use Ada.Text_IO;
5 with Controlled6_Pkg;
6 with Controlled6_Pkg.Iterators;
7
8 procedure Controlled6 is
9
10    type String_Access is access String;
11
12    package My_Q is new Controlled6_Pkg (String_Access);
13    package My_Iterators is new My_Q.Iterators (0);
14    use My_Iterators;
15
16    Iterator : Iterator_Type := Find;
17
18 begin
19    loop
20       exit when Is_Null (Iterator);
21       Put (Current (Iterator).all & ' ');
22       Find_Next (Iterator);
23    end loop;
24 end;