1* To: craig@jcb-sc.com
2* Subject: Re: G77 and KIND=2
3* Content-Type: text/plain; charset=us-ascii
4* From: Dave Love <d.love@dl.ac.uk>
5* Date: 03 Mar 1999 18:20:11 +0000
6* In-Reply-To: craig@jcb-sc.com's message of "1 Mar 1999 21:04:38 -0000"
7* User-Agent: Gnus/5.07007 (Pterodactyl Gnus v0.70) Emacs/20.3
8* X-UIDL: d442bafe961c2a6ec6904f492e05d7b0
9*
10* ISTM that there is a real problem printing integer*8 (on x86):
11*
12* $ cat x.f
13*[modified for test suite]
14        integer *8 foo, bar
15        data r/4e10/
16        foo = 4e10
17        bar = r
18        if (foo .ne. bar) call abort
19        end
20* $ g77 x.f && ./a.out
21*  1345294336
22*  123
23* $ f2c x.f && g77 x.c && ./a.out
24* x.f:
25*    MAIN:
26*  40000000000
27*  123
28* $
29*
30* Gdb shows the upper half of the buffer passed to do_lio is zeroed in
31* the g77 case.
32*
33* I've forgotten how the code generation happens.
34