gcc/testsuite/g77.f-torture/execute/19981119-0.f

   1 * X-Delivered: at request of burley on mescaline.gnu.org
   2 * Date: Sat, 31 Oct 1998 18:26:29 +0200 (EET)
   3 * From: "B. Yanchitsky" <yan@im.imag.kiev.ua>
   4 * To: fortran@gnu.org
   5 * Subject: Bug report
   6 * MIME-Version: 1.0
   7 * Content-Type: TEXT/PLAIN; charset=US-ASCII
   8 *
   9 * There is a trouble with g77 on Alpha.
  10 * My configuration:
  11 * Digital Personal Workstation 433au,
  12 * Digital Unix 4.0D,
  13 * GNU Fortran 0.5.23 and GNU C 2.8.1.
  14 *
  15 * The following program treated successfully but crashed when running.
  16 *
  17 * C --- PROGRAM BEGIN -------
  18 *
  19       subroutine sub(N,u)
  20       integer N
  21       double precision u(-N:N,-N:N)
  22
  23 C vvvv    CRASH HERE   vvvvv
  24       u(-N,N)=0d0
  25       return
  26       end
  27
  28
  29       program bug
  30       integer N
  31       double precision a(-10:10,-10:10)
  32       data a/441*1d0/
  33       N=10
  34       call sub(N,a)
  35       if (a(-N,N) .ne. 0d0) call abort
  36       end
  37 *
  38 * C --- PROGRAM END -------
  39 *
  40 * Good luck!