You can control the object name via the Link_Name and External_Name parameters of the pragma, writing it like so:
pragma Export (C, Print_Call, "Print_Call", "Print_Call");
Alternatively, if you're using Ada2012 you can use aspects to specify these:
function Add_Nums(A,B : in Integer) return Integer
with Export, Convention => Ada, Link_Name => "Add_Nums";
The following covers Ada's interfacing pragmas: http://www.ada-auth.org/standards/12rm/html/RM-J-15-5.html
This thread covers a little discussion revealing the differences of the two: https://groups.google.com/forum/?fromgroups=#!searchin/comp.lang.ada/opengl/comp.lang.ada/6IVlMbtvrrU/mv3UUiDg5RwJ