(root)/
gcc-13.2.0/
gcc/
testsuite/
gnat.dg/
opt13_pkg.ads
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;