gcc/testsuite/gnat.dg/opt67_pkg.adb

   1 package body Opt67_Pkg is
   2
   3   function Make_TSS_Name (Typ : Entity_Id; Nam : TNT) return Name_Id is
   4   begin
   5     return 0;
   6   end;
   7
   8   function Stream_Operation_OK (N : Entity_Id; Name : TNT) return Boolean is
   9   begin
  10     return True;
  11   end;
  12
  13   procedure Append_To (N1 : Natural; N2 : Node_Id) is
  14   begin
  15     null;
  16   end;
  17
  18   function Predef (Loc : Source_Ptr; Name : Name_Id; E : Entity_Id)
  19     return Node_Id is
  20   begin
  21     return 0;
  22   end;
  23
  24   function Init return Natural is
  25   begin
  26     return 0;
  27   end;
  28
  29 end Opt67_Pkg;