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

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