Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.4.3
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
dollar_edit_descriptor_1.f
blob: 93e5033293b6ec506ecd4eb50c06c4f391d0ae4b [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
{
target fd_truncate
}
}
!
{
dg
-
options
"-w"
}
!
PR libfortran
/
20006
character
*
5
c
open
(
42
,
status
=
'scratch'
)
write
(
42
,
'(A,$)'
)
'abc'
write
(
42
,
'(A)'
)
'de'
rewind
(
42
)
read
(
42
,
'(A)'
)
c
close
(
42
)
if
(
c
/=
'abcde'
)
call abort
end
