Sign in
llvm
/
llvm-archive
/
1456578521548c1ea3e191fcd25bb39efd8203cd
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
20000630-2.f
blob: b2776bf6bed096c493e7f410dee2eb8c94bdce4e [
file
] [
log
] [
blame
]
c
{
dg
-
do
compile
}
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