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