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:34:50 +0000
Organization: A noiseless patient Spider
Message-ID: <lyh9lcpmsl.fsf@pushface.org>
References: <f30bbb5d-ebfd-427b-8c16-88aeb8a61318@googlegroups.com>
	<lyy4epq37p.fsf@pushface.org>
	<5cd4e16a-9dd4-4fe8-8cc6-f98052d883db@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="U2FsdGVkX18j4jBw25JASZHfTSJiN3V+QNFD4B0BYQ8="
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (darwin)
Cancel-Lock: sha1:yYv3R8CgsD7Ld67Y29UHfQNt5z0=
	sha1:xTU445lLBujn7PP7e5Jywn9SENw=
Xref: news.eternal-september.org comp.lang.ada:28072
Date: 2015-10-27T11:34:50+00:00
List-Id: <comp.lang.ada>

comicfanzine@gmail.com writes:

> The code compile but you don't understand what i want to do . I want
> to create a file (the use of the create procedure will erase+remplace
> it if he already exist ) , then use IS_open to have a output in comand
> that say(fonction put) for exemple : "the file have been opened
> successfuly , value : true " (i repeate,; by put the Value of IS_open
> : should be true .)

You could write

    put(File => MonFichier,
        Item => "Le fichier , ouvert ? : "
                & Boolean'Image (Is_Open (MonFichier)));

(note, if you use named parameter association the order of parameters
doesn't matter).