blob: 4948c49e4944966ee59f48412f9c4a032da38d41 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
c { dg-do compile }
c { dg-options "-std=legacy" }
c
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
|