RosettaCodeData/Task/Hello-world-Standard-error/Ada/hello-world-standard-error.adb

with Ada.Text_IO;  use Ada.Text_IO;

procedure Goodbye_World is
begin
   Put_Line (Standard_Error, "Goodbye, World!");
end Goodbye_World;