1package Bip_Export is 2 type T is limited null record; 3 function F return T; 4 pragma Export (C, F); 5 function G return T; 6end Bip_Export; 7