Sign in
llvm
/
llvm-archive
/
089ca8750d7cd1f1ec96968922bf4bcfe223bb3a
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.dg
/
dollar_edit_descriptor-1.f
blob: af22c4536362f9d56593e408961f89e976fd9317 [
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'
)
call abort
end