OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
PR testsuite/35406
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
dollar_edit_descriptor_1.f
1
! { dg-do run { target fd_truncate } }
2
! { dg-options "-w" }
3
! PR libfortran/20006
4
character*5 c
5
open (42,status='scratch')
6
write (42,'(A,$)') 'abc'
7
write (42,'(A)') 'de'
8
rewind (42)
9
read (42,'(A)') c
10
close (42)
11
12
if (c /= 'abcde') call abort
13
end