aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorZack Weinberg <zack@gcc.gnu.org>1999-05-02 14:09:12 +0000
committerZack Weinberg <zack@gcc.gnu.org>1999-05-02 14:09:12 +0000
commitec6f352cd8e73118e5d0277cbc9ea4e93573d173 (patch)
treed549f26940cf52fa15dd5927adb1dad7c9284f6e
parent834ba75b357e7c77525c93ed5c696cad3ab3ee76 (diff)
downloadgcc-ec6f352cd8e73118e5d0277cbc9ea4e93573d173.zip
gcc-ec6f352cd8e73118e5d0277cbc9ea4e93573d173.tar.gz
gcc-ec6f352cd8e73118e5d0277cbc9ea4e93573d173.tar.bz2
ICE test; reported by Alexander Zvyagin <zvyagin@mx.ihep.su>
From-SVN: r26729
-rw-r--r--gcc/testsuite/g77.f-torture/compile/19990502-2.f21
1 files changed, 21 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/compile/19990502-2.f b/gcc/testsuite/g77.f-torture/compile/19990502-2.f
new file mode 100644
index 0000000..0f53586
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/19990502-2.f
@@ -0,0 +1,21 @@
+C Reported by Alexander Zvyagin <zvyagin@mx.ihep.su>
+C
+C Dear egcs developers,
+C File g.f:
+ SUBROUTINE G(IGAMS,IWRK,NADC,NCellsInY)
+ INTEGER*2 IGAMS(2,NADC)
+ in = 1
+ do while (in.le.nadc.and.IGAMS(2,in).le.in)
+ enddo
+ END
+C $ g++ -c g.f
+C g.f:4: Internal compiler error in `expand_expr', at expr.c:6388
+C Please submit a full bug report to `egcs-bugs@egcs.cygnus.com'.
+C See <URL:http://egcs.cygnus.com/faq.html#bugreport> for details.
+C
+C $ uname -a
+C Linux gamspc5 2.2.2 #13 SMP Sat Mar 20 19:57:56 MSK 1999 i686 unknown
+C $ g++ -v
+C Reading specs from
+C /usr/local/lib/gcc-lib/i686-pc-linux-gnulibc1/egcs-2.93.20/specs
+C gcc version egcs-2.93.20 19990427 (gcc2 ss-980929 experimental)