Ada.Text_IO.Create (was: invalid parameter list)

["Björn Persson" <spam-away@nowhere.nil>]

Martin Dowie wrote:
> Beware that if the file already exists Ada.Text_IO.Create will raise an 
> exception, so you have to use a "begin ... exception ... end;" block.

Really? I don't see that in AARM95 A.8.2 or A.10.2.

The following test program works just fine with GCC 4.0.2 on Fedora 4:

with Ada.Text_IO;
procedure Creation_Test is
    The_File  : Ada.Text_IO.File_Type;
    File_Name : String := "test_file";
begin
    Ada.Text_IO.Create(The_File, Ada.Text_IO.Out_File, File_Name);
    Ada.Text_IO.Put(The_File, "one");
    Ada.Text_IO.Close(The_File);
    Ada.Text_IO.Create(The_File, Ada.Text_IO.Out_File, File_Name);
    Ada.Text_IO.Put(The_File, "two");
    Ada.Text_IO.Close(The_File);
end Creation_Test;

$ gnatmake creation_test
gcc -c creation_test.adb
gnatbind -x creation_test.ali
gnatlink creation_test.ali
$ ./creation_test
$ ./creation_test
$ ./creation_test
$ cat test_file
two
$

-- 
Bj�rn Persson                              PGP key A88682FD
                    omb jor ers @sv ge.
                    r o.b n.p son eri nu