blob: 3ee4b3eed849cb686dca8f3a71d8877e0d1fca91 [file] [log] [blame]
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;