20000630-2.f: New test.

        * g77.f-torture/compile/20000630-2.f:  New test.
        * g77.f-torture/compile/20000630-2.x

From-SVN: r34992

gcc/testsuite/ChangeLog

+2000-07-12  David Billinghurst  <David Billinghurst@riotinto.com.au>
+
+	* g77.f-torture/compile/20000630-2.f:  New test.
+	* g77.f-torture/compile/20000630-2.x
+
 2000-07-11  David Billinghurst  <David.Billinghurst@riotinto.com.au>
 
 	* g77.f-torture/execute/20000503-1.x: Delete.  Test now passes.

gcc/testsuite/g77.f-torture/compile/20000630-2.f

+      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

gcc/testsuite/g77.f-torture/compile/20000630-2.x

+set torture_compile_xfail "*-*-*"
+return 0