OSDN Git Service

* tree-cfg.c (call_can_make_abnormal_goto): New predicate.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / controlled6_pkg.ads
1 with Ada.Finalization;
2
3 generic
4
5    type T is private;
6
7 package Controlled6_Pkg is
8
9    type Node_Type is record
10       Item : T;
11    end record;
12
13    type Node_Access_Type is access Node_Type;
14
15 end Controlled6_Pkg;