From: Jeff Law <law@gcc.gnu.org>
Date: Mon, 3 Nov 1997 06:11:55 +0000 (-0700)
Subject: Initialize I.
X-Git-Tag: releases/egcs-1.0.0~173
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b46af585faa9bd2d3564d087df1f6528a8d82104;p=thirdparty%2Fgcc.git

Initialize I.

From-SVN: r16294
---

diff --git a/gcc/testsuite/g77.f-torture/execute/alpha1.f b/gcc/testsuite/g77.f-torture/execute/alpha1.f
index 7cda74ebd45f..550c328e7cd5 100644
--- a/gcc/testsuite/g77.f-torture/execute/alpha1.f
+++ b/gcc/testsuite/g77.f-torture/execute/alpha1.f
@@ -1,10 +1 @@
-      REAL*8 A,B,C
-      REAL*4 RARRAY(19)/19*(-1)/
-      INTEGER BOTTOM,RIGHT
-      INTEGER IARRAY(19)/0,0,0,0,0,0,0,0,0,0,0,0,13,14,0,0,0,0,0/
-      EQUIVALENCE (RARRAY(13),BOTTOM),(RARRAY(14),RIGHT)
-C
-      IF(I.NE.0) call exit(1)
-C gcc: Internal compiler error: program f771 got fatal signal 11
-C  at this point!
-      END
+      I = 0