Subversion Repositories openrisc

c { dg-do run }

* X-Delivered: at request of burley on mescaline.gnu.org

* Date: Sat, 31 Oct 1998 18:26:29 +0200 (EET)

* From: "B. Yanchitsky" <yan@im.imag.kiev.ua>

* To: fortran@gnu.org

* Subject: Bug report

* MIME-Version: 1.0

* Content-Type: TEXT/PLAIN; charset=US-ASCII

*

* There is a trouble with g77 on Alpha.

* My configuration:

* Digital Personal Workstation 433au,

* Digital Unix 4.0D,

* GNU Fortran 0.5.23 and GNU C 2.8.1.

*

* The following program treated successfully but crashed when running.

*

* C --- PROGRAM BEGIN -------

*

      subroutine sub(N,u)

      integer N

      double precision u(-N:N,-N:N)

C vvvv    CRASH HERE   vvvvv   

      u(-N,N)=0d0

      return

      end

      program bug

      integer N

      double precision a(-10:10,-10:10)

      data a/441*1d0/

      N=10

      call sub(N,a)

      if (a(-N,N) .ne. 0d0) call abort

      end

*

* C --- PROGRAM END -------

*

* Good luck!