c { dg-do run }
|
c { dg-do run }
|
* X-Delivered: at request of burley on mescaline.gnu.org
|
* X-Delivered: at request of burley on mescaline.gnu.org
|
* Date: Sat, 31 Oct 1998 18:26:29 +0200 (EET)
|
* Date: Sat, 31 Oct 1998 18:26:29 +0200 (EET)
|
* From: "B. Yanchitsky" <yan@im.imag.kiev.ua>
|
* From: "B. Yanchitsky" <yan@im.imag.kiev.ua>
|
* To: fortran@gnu.org
|
* To: fortran@gnu.org
|
* Subject: Bug report
|
* Subject: Bug report
|
* MIME-Version: 1.0
|
* MIME-Version: 1.0
|
* Content-Type: TEXT/PLAIN; charset=US-ASCII
|
* Content-Type: TEXT/PLAIN; charset=US-ASCII
|
*
|
*
|
* There is a trouble with g77 on Alpha.
|
* There is a trouble with g77 on Alpha.
|
* My configuration:
|
* My configuration:
|
* Digital Personal Workstation 433au,
|
* Digital Personal Workstation 433au,
|
* Digital Unix 4.0D,
|
* Digital Unix 4.0D,
|
* GNU Fortran 0.5.23 and GNU C 2.8.1.
|
* GNU Fortran 0.5.23 and GNU C 2.8.1.
|
*
|
*
|
* The following program treated successfully but crashed when running.
|
* The following program treated successfully but crashed when running.
|
*
|
*
|
* C --- PROGRAM BEGIN -------
|
* C --- PROGRAM BEGIN -------
|
*
|
*
|
subroutine sub(N,u)
|
subroutine sub(N,u)
|
integer N
|
integer N
|
double precision u(-N:N,-N:N)
|
double precision u(-N:N,-N:N)
|
|
|
C vvvv CRASH HERE vvvvv
|
C vvvv CRASH HERE vvvvv
|
u(-N,N)=0d0
|
u(-N,N)=0d0
|
return
|
return
|
end
|
end
|
|
|
|
|
program bug
|
program bug
|
integer N
|
integer N
|
double precision a(-10:10,-10:10)
|
double precision a(-10:10,-10:10)
|
data a/441*1d0/
|
data a/441*1d0/
|
N=10
|
N=10
|
call sub(N,a)
|
call sub(N,a)
|
if (a(-N,N) .ne. 0d0) call abort
|
if (a(-N,N) .ne. 0d0) call abort
|
end
|
end
|
*
|
*
|
* C --- PROGRAM END -------
|
* C --- PROGRAM END -------
|
*
|
*
|
* Good luck!
|
* Good luck!
|
|
|