with Ada.Text_IO, Interfaces.C;

with Fork;

procedure Exploration_8_5 is
   use Ada.Text_IO;
   Message_1  : constant String := "Testing 1 2 3 ..";
   Message_2  : constant String := "Hello, hello";
   Test_File  : File_Type;
   Process_ID : Interfaces.C.int;
begin
   Create (File => Test_File,
           Name => "testfile2",
           Mode => Out_File);
   Put_Line (File => Test_File,
             Item => Message_1);
   Process_ID := Fork;
   Put_Line (File => Test_File,
             Item => Message_2);
   Close (File => Test_File);
end Exploration_8_5;