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=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,973b2ff14841b514
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.223.40 with SMTP id qr8mr9475194pbc.0.1341488508915;
        Thu, 05 Jul 2012 04:41:48 -0700 (PDT)
Path: 
 l9ni10938pbj.0!nntp.google.com!news1.google.com!news3.google.com!feeder1.cambriumusenet.nl!feed.tweaknews.nl!195.62.100.242.MISMATCH!newsfeed.kamp.net!newsfeed.kamp.net!eternal-september.org!feeder.eternal-september.org!mx04.eternal-september.org!.POSTED!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: what to use in place of old gnatbl in newer GNAT ?
Date: Thu, 05 Jul 2012 12:41:49 +0100
Organization: A noiseless patient Spider
Message-ID: <m2mx3ewi2q.fsf@pushface.org>
References: <jt2o0j$lds$1@speranza.aioe.org> <m2r4sqwkl6.fsf@pushface.org>
Mime-Version: 1.0
Injection-Info: mx04.eternal-september.org;
 posting-host="4Cg2G7yDVe5FCnL++SadHg";
	logging-data="28462"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1/7+L0OD5M0d9Vvys6k860Qw+p6m3YWD1o="
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.1 (darwin)
Cancel-Lock: sha1:vcotj1eS9i5c1EDTPvZZ8TeJJ9E=
	sha1:iLwht26vo5nbPy2Zf43tRx00/fs=
Content-Type: text/plain
Date: 2012-07-05T12:41:49+01:00
List-Id: <comp.lang.ada>

Simon Wright <simon@pushface.org> writes:

> However, neither seems to work!

> I get
>
> $ ./cxbi 
> Integer number passing:
> mode: in out in/out
> Ada send:
>           1          1          1
>  Fortran get:
>            1           1           1
>  Fortran send:
>            2           2           2
> Ada recieve:
>           1          2          2
> Ada send:
>          -1         -1         -1
>  Fortran get:
>           -1          -1          -1
>  Fortran send:
>            0           0           0
> Ada recieve:
>          -1          0          0

Actually, aside from the spelling, this is correct; the first number is
passed by Ada as mode in, so the fact that the Fortran changes it has no
effect on the value seen by Ada after the call.