This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Test case for PR fortran/329
- To: "'gcc-patches at gcc dot gnu dot org'" <gcc-patches at gcc dot gnu dot org>
- Subject: Test case for PR fortran/329
- From: "Billinghurst, David (CRTS)" <David dot Billinghurst at riotinto dot com dot au>
- Date: Fri, 30 Jun 2000 03:20:51 -0000
- Cc: "'trond dot bo at dnmi dot no'" <trond dot bo at dnmi dot no>
Test case is derived from unresolved PR fortran/329
2000-06-30 David Billinghurst <David Billinghurst@riotinto.com.au>
* g77.f-torture/compile/20000630-2.f: New test.
g77.f-torture/compile/20000630-2.x
--- /dev/null Fri Jun 30 13:11:49 2000
+++ gcc/testsuite/g77.f-torture/compile/20000630-2.f Fri Jun 30 13:08:35
2000
@@ -0,0 +1,9 @@
+ SUBROUTINE CHOUT(CHR,ICNT)
+C ICE: failed assertion `expr != NULL'
+C Reduced version of GNATS PR fortran/329 from trond.bo@dnmi.no
+ INTEGER CHR(ICNT)
+ CHARACTER*255 BUF
+ BUF(1:1)=CHAR(CHR(1))
+ CALL FPUTC(1,BUF(1:1))
+ RETURN
+ END
--- /dev/null Fri Jun 30 13:11:49 2000
+++ gcc/testsuite/g77.f-torture/compile/20000630-2.x Fri Jun 30 13:09:10
2000
@@ -0,0 +1,2 @@
+set torture_compile_xfail "*-*-*"
+return 0