From: Dave Love <fx@gcc.gnu.org>
Date: Sun, 12 Jul 1998 04:33:13 +0000 (+0000)
Subject: New test from Craig.
X-Git-Tag: prereleases/egcs-1.1-prerelease~307
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8ad1ecde358cb89c5da930938458b058fee1b545;p=thirdparty%2Fgcc.git

New test from Craig.

From-SVN: r21076
---

diff --git a/gcc/testsuite/g77.f-torture/execute/970816-3.f b/gcc/testsuite/g77.f-torture/execute/970816-3.f
new file mode 100644
index 000000000000..6398600f0598
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/970816-3.f
@@ -0,0 +1,20 @@
+* Date: Wed, 13 Aug 1997 15:34:23 +0200 (METDST)
+* From: Claus Denk <denk@cica.es>
+* To: g77-alpha@gnu.ai.mit.edu
+* Subject: 970811 report - segfault bug on alpha still there
+*[...]
+* Now, the bug that I reported some weeks ago is still there, I'll post
+* the test program again:
+*
+        PROGRAM TEST
+C       a bug in g77-0.5.21 - alpha. Works with NSTART=0 and segfaults with
+C       NSTART=1 on the second write.
+        PARAMETER (NSTART=1,NADD=NSTART+1)
+        REAL AB(NSTART:NSTART)
+        AB(NSTART)=1.0
+        I=1
+        J=2
+        IND=I-J+NADD
+        write(*,*) AB(IND)
+        write(*,*) AB(I-J+NADD)
+        END