* gcc-interface/trans.c (Subprogram_Body_to_gnu): Pop the stack of

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / bip_prim_func.ads

package BIP_Prim_Func is
   pragma Elaborate_Body;
        
   type TT is abstract tagged limited record
      I : Integer;
   end record;
        
   function Prim_Func return TT is abstract;
        
end BIP_Prim_Func;