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

   1       SUBROUTINE CHOUT(CHR,ICNT)
   2 C ICE: failed assertion `expr != NULL'
   3 C Reduced version of GNATS PR fortran/329 from trond.bo@dnmi.no
   4       INTEGER CHR(ICNT)
   5       CHARACTER*255 BUF
   6       BUF(1:1)=CHAR(CHR(1))
   7       CALL FPUTC(1,BUF(1:1))
   8       RETURN
   9       END