Attempting to create file i task

[reinert <reinkor@gmail.com>]

Hello,

Assume task A starts subsequentially two times sub-sequentially (but not overlapping in time). It creates and closes a file:

  define
      my_file : File_Type;
  begin
     Create  (File => my_file, Mode => Out_File, Name => my_file_name);
     ..some statements...
     Close(my_file);
  end;

I now have the strange experience that task A overwrites the file
created the first time?  Any idea where to look for the error?

reinert