with Interfaces.C; use Interfaces.C;

package Cpp_Constructor_FP is
   type Class is limited record null; end record
   with Convention => Cpp, Import;

   function Constructor
     (Fn : access function (Val : int) return int) return Class;
   pragma Cpp_Constructor (Constructor, External_Name => "foo");
end Cpp_Constructor_FP;