Sign in
gnu
/
gcc
/
cd2fd5facb5e1882d3f338ed456ae9536f7c0593
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
internal_write.f90
blob: 71908273265b9e9474841f95cafb59636299e0d1 [
file
] [
log
] [
blame
]
!
PR
14901
!
Internal
writes were appending CR after the
last
char
!
written
by
the format statement
.
CHARACTER
*
10
A
WRITE
(
A
,
'(3HGCC)'
)
IF
(
A
.
NE
.
'GCC '
)
THEN
!
PRINT
*,
'A was not filled correctly by internal write'
!
PRINT
*,
' A = '
,
A
STOP
1
ENDIF
END