summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/g77/19981119-0.f
blob: 17c6e06405ca328e276af4f78cddfa9ce8d8a3b2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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!