This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Fortran testsuite addition - PR fortran/363
- To: "'gcc-patches at gcc dot gnu dot org'" <gcc-patches at gcc dot gnu dot org>
- Subject: Fortran testsuite addition - PR fortran/363
- From: "Billinghurst, David (CRTS)" <David dot Billinghurst at riotinto dot com dot au>
- Date: Fri, 30 Jun 2000 00:05:27 -0000
This case was posted to gcc-bugs yesterday by Norbert Conrad
[Norbert.Conrad@hrz.uni-giessen.de]. Reported to GNATS as PR fortran/363
2000-06-30 David Billinghurst <David Billinghurst@riotinto.com.au>
* g77.f-torture/compile/20000630-1.f: New test.
g77.f-torture/compile/20000630-1.x
--- /dev/null Fri Jun 30 09:48:07 2000
+++ gcc/testsuite/g77.f-torture/compile/20000630-1.f Fri Jun 30 09:37:44
2000
@@ -0,0 +1,14 @@
+ SUBROUTINE MIST(N, BETA)
+C From: Norbert Conrad [Norbert.Conrad@hrz.uni-giessen.de]
+C ICE with egcs-20000626 on i686-pc-linux with "-O2 -funroll-loops"
+C GNATS PR fortran/363
+ IMPLICIT REAL*8 (A-H,O-Z)
+ INTEGER IA, IQ, M1
+ DIMENSION BETA(N)
+ DO 80 IQ=1,M1
+ IF (BETA(IQ).EQ.0.0D0) GO TO 120
+ 80 CONTINUE
+ 120 IF (IQ.NE.1) GO TO 160
+ 160 M1 = IA(IQ)
+ RETURN
+ END
--- /dev/null Fri Jun 30 09:48:07 2000
+++ gcc/testsuite/g77.f-torture/compile/20000630-1.x Fri Jun 30 09:44:53
2000
@@ -0,0 +1,3 @@
+# Known to fail for egcs-20000626 on i686-pc-linux and i686-pc-cygwin
+set torture_compile_xfail "*-*-*"
+return 0