我刚才突然想到了，只要把读取位置调回文件开头就行了，使用rewind(10)，问题解决了，希望能对同样遇到此类问题的朋友有所帮助。

文件写入完成后，光标停在文件最后的位置，重新读取时下面当然没有东西了，所以报错，加上rewind(10)或将文件关闭再打开都可以
    program main
    implicit none
    integer i,j,k
    open(10,file='test.dat')
    do i=1,20
    write(10,'(I3)') I*i
    end do 
    rewind(10)
    do i=1,20
    read(10,*) j
    print *,j
    end do 
   close(10)
    stop
    end

也可以读完后关闭，下次读的时候再打开就行了，不过这样是比较麻烦的
直接用rewind(10)