gcc/testsuite/gnat.dg/opt13_pkg.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

package Opt13_Pkg is

    N : Natural := 0;

    type My_Type is private;

    procedure Allocate (T : out My_Type);

private

    type Data;

    type My_Type is access Data;

end Opt13_Pkg;