aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeff Law <law@gcc.gnu.org>1997-11-02 23:11:33 -0700
committerJeff Law <law@gcc.gnu.org>1997-11-02 23:11:33 -0700
commit0ae231b2281a84173bb75c5d8649f788511733dc (patch)
tree52e4de8d9eb106fb06e43769d3c433ac0be0774f
parentafb6fb7665054449e7cffc37cdf7a154de351469 (diff)
downloadgcc-0ae231b2281a84173bb75c5d8649f788511733dc.zip
gcc-0ae231b2281a84173bb75c5d8649f788511733dc.tar.gz
gcc-0ae231b2281a84173bb75c5d8649f788511733dc.tar.bz2
Initialize I.
From-SVN: r16293
-rw-r--r--gcc/testsuite/g77.f-torture/execute/alpha1.f1
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/alpha1.f b/gcc/testsuite/g77.f-torture/execute/alpha1.f
index 7cda74e..9fd464e 100644
--- a/gcc/testsuite/g77.f-torture/execute/alpha1.f
+++ b/gcc/testsuite/g77.f-torture/execute/alpha1.f
@@ -4,6 +4,7 @@
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
+ I = 0
IF(I.NE.0) call exit(1)
C gcc: Internal compiler error: program f771 got fatal signal 11
C at this point!