Creating tempfile takes too long: GNAT or Windows bug?

[maa@liacc.up.pt (Mário Amado Alves)]

Hi all.

Creating a temporary file (see test code below) is taking the
unreasonable time of 30+ seconds on Windows XP (with GNAT 3.14p) on my
laptop. Has someone had this sort of problem?

On Linux (same compiler version), in another machine, it takes a
reasonable time: 0.0004 seconds.

On Linux the compiler warns:

"/usr/gnat/lib/gcc-lib/i686-pc-linux-gnu/2.8.1/adalib/libgnat.a(a-adaint.o):
In function `__gnat_tmp_name':
a-adaint.o(.text+0x504): the use of `tmpnam' is dangerous, better use
`mkstemp'"

which sounds like something related to the issue--but there is no
issue on Linux.

On Windows it does not emit this warning--but the problem manifests
itself! Painfully!

Thanks a lot,
--MAA

---------------
-- test code --
---------------

with Ada.Direct_IO;
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Calendar; use Ada.Calendar;

procedure Test_File is

  package Character_IO is new Ada.Direct_IO (Character);
  use Character_IO;
  Tempfile : Character_IO.File_Type;
  T_Start, T_End : Time;
      
begin

  T_Start := Clock;
  Create (File => Tempfile, Mode => Inout_File);
  T_End := Clock;
  Put_Line ("Tempfile took" & Duration'Image (T_End - T_Start) & "
seconds to create!");
  
end;