gcc/testsuite/gfortran.dg/g77/20000630-2.f

   1 c { dg-do compile }
   2 c { dg-options "-std=legacy" }
   3 c
   4       SUBROUTINE CHOUT(CHR,ICNT)
   5 C ICE: failed assertion `expr != NULL'
   6 C Reduced version of GNATS PR fortran/329 from trond.bo@dnmi.no
   7       INTEGER CHR(ICNT)
   8       CHARACTER*255 BUF
   9       BUF(1:1)=CHAR(CHR(1))
  10       CALL FPUTC(1,BUF(1:1))
  11       RETURN
  12       END