blob: 16f5523e35371c483456b8cc74e8000304741cb8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! pr 15755
implicit none
character*1 C
open(10)
write(10,*)'a'
write(10,*)'b'
write(10,*)'c'
rewind(10)
read(10,*)C
backspace(10)
read(10,*) C
if (C.ne.'b') call abort
close(10,STATUS='DELETE')
end
|