Sign in
gnu
/
gcc
/
14bc1c0e15633ea781d76d0ae4274b2e27d51db5
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
compile
/
20000630-2.f
blob: 623a29a9679e7c1e03ce09ee24813660e42cb15b [
file
] [
log
] [
blame
]
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