diff options
Diffstat (limited to 'gcc/testsuite/g77.f-torture/execute/19981119-0.f')
-rw-r--r-- | gcc/testsuite/g77.f-torture/execute/19981119-0.f | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/19981119-0.f b/gcc/testsuite/g77.f-torture/execute/19981119-0.f deleted file mode 100644 index 5cfab57a5fc..00000000000 --- a/gcc/testsuite/g77.f-torture/execute/19981119-0.f +++ /dev/null @@ -1,40 +0,0 @@ -* 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! |