Sign in
gnu
/
gcc
/
f00b5710a30f22efc3171c393e56aeb335c3cd39
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
dollar_edit_descriptor_1.f
blob: 4029ff2db6584099051e850ae339fdaca6307fdb [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
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'
)
STOP
1
end