Re: Exclusive file access

[gautier_niouzes@hotmail.com]

Hi Ahlan,

I also get no exception with GNAT GPL 2014, Windows 7...
But with ObjectAda 7.2.2 SE, on the same machine, the 2nd occurrence raises the expected Use_Error.

Cheers
Gautier

NB: ready-to-compile variant below:

  with Ada.Text_IO;
  
  procedure Work is
    package Io renames Ada.Text_IO;
    The_File : Io.File_Type;
  begin
    Io.Open (The_File, Io.Out_File, "Test.Txt");
    for Count in 1..100 loop
      Io.Put_Line (The_File, "Count =" & Integer'Image(Count));
      Io.Put_Line ("Count =" & Integer'Image(Count));
      delay 1.0;
    end loop;
    Io.Close (The_File);
 end Work;