gomp-20050608-branch/gcc/testsuite/gfortran.dg/g77/20000630-2.f

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