From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: function Is_Open (File : File_Type) return Boolean; :Text_io
Date: Tue, 27 Oct 2015 11:30:17 +0000
Organization: A noiseless patient Spider
Message-ID: <lylhaopn06.fsf@pushface.org>
References: <f30bbb5d-ebfd-427b-8c16-88aeb8a61318@googlegroups.com>
	<lyy4epq37p.fsf@pushface.org>
	<75dd21a2-9265-44e4-a4d4-e2d96ffdecb1@googlegroups.com>
	<lytwpdpkyy.fsf@pushface.org>
	<243b6ecb-b999-4b1a-b451-b99712dcd8eb@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain
Injection-Info: mx02.eternal-september.org;
 posting-host="2d7699570724a9a82a760842267e2c56";
	logging-data="27220"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1+huhAGK6f7QUhWvv4+189D7ilBvJ6n+nQ="
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (darwin)
Cancel-Lock: sha1:3zm8RVN+XSJcfY1cxE7pO3BJQaQ=
	sha1:brQdSAQ4/K0OJqOkJSv3oV8cVlU=
Xref: news.eternal-september.org comp.lang.ada:28071
Date: 2015-10-27T11:30:17+00:00
List-Id: <comp.lang.ada>

AdaMagica <christ-usch.grein@t-online.de> writes:

> Am Montag, 26. Oktober 2015 19:02:00 UTC+1 schrieb Simon Wright:
>> Second, the semantic problems: Create at line 8 will either result in an
>> opened writable file (MonFichier) or will raise an exception if the file
>> already existed.
>
> A.8.2(3/2) "Establishes a new external file, ..."
> (5) Doesn't mention an exception if file exists.
>
> I interprete this as: If the file exists, a new file is created
> nevertheless and the old contents are lost.
> So does Gnat GPL 2015.

Quite right, sorry, I was thinking of the usual dance when you want to
write to a file whether or not it exists already.