gcc/testsuite/gfortran.dg/g77/19990313-0.f

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