testsuite/gnat.dg/bip_cu_constructor.adb

with BIP_CU_T; use BIP_CU_T;
function BIP_CU_Constructor return T is
begin
   return Make_T (Name => "Rumplestiltskin");
end BIP_CU_Constructor;