gcc/testsuite/gnat.dg/opt67_pkg.adb

package body Opt67_Pkg is

  function Make_TSS_Name (Typ : Entity_Id; Nam : TNT) return Name_Id is
  begin
    return 0;
  end;

  function Stream_Operation_OK (N : Entity_Id; Name : TNT) return Boolean is
  begin
    return True;
  end;

  procedure Append_To (N1 : Natural; N2 : Node_Id) is
  begin
    null;
  end;

  function Predef (Loc : Source_Ptr; Name : Name_Id; E : Entity_Id)
    return Node_Id is
  begin
    return 0;
  end;

  function Init return Natural is
  begin
    return 0;
  end;

end Opt67_Pkg;