OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [19981119-0.f] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
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) call abort
37
      end
38
*
39
* C --- PROGRAM END -------
40
*
41
* Good luck!

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.