blob: 1ecae1b792f6873b1f86505c7a4fa441e65264b6 [file] [log] [blame]
-- { dg-do compile }
with Interfaces.C; use Interfaces.C;
with Cpp_Constructor_FP;
with Cpp_Constructor_Useit;
procedure Cpp_Constructor is
F : Cpp_Constructor_FP.Class :=
Cpp_Constructor_FP.Constructor (Cpp_Constructor_Useit.My_Fn'Access);
begin
null;
end Cpp_Constructor;