procedure Call_CPP;
pragma Export (C, Call_CPP, "call_cpp");