gfortran read file error during openmp parallel do

[shark <cplusplus09 at gmail dot com>]

I`m using gfortran-4.2.1 under x86_64.
when i use some code like below, it always reports "Fortran runtime
error: End of file", but if i run it in single thread mode, it works.

program test
  use omp_lib
  character(256):: filename
  real:: f_r,f_i,realn,imgn
  integer:: iii,stat
  integer:: tID,fIDA,fIDB
  open(10,file='./data/def.dat')
!$omp parallel do
!$omp& default(shared)
!$omp& private(iii,tID,fIDA,fIDB,filename,stat)
!$omp& schedule(static,1)
!$omp& reduction(+:real,img)

  do iii=1,1000

     tID = omp_get_thread_num()
     fIDA = 1000 + tID
     fIDB = 2000 + tID
!$omp critical

     read(10,'(A)') filename     !get file name for a record file

!$omp end critical
     print*,'Processing: ',filename
   
    
open(fIDB,file=filename,form='unformatted',ACCESS='stream',status='old',iostat=stat)
     if(stat .ne. 0) then
       
print*,'------------------------------Error------------------------------'
     end if

     do v=0,2000
        do u=0,2000
           read(unit=fIDB) f_r,f_i !errors here
           realn = realn + f_r
           imgn  = imgn + f_i
        end do
     end do
     close(fIDB)
  end do
!$omp end parallel do
  close(10)
end program test