fortran做的书下的一个例子，运行后不报错也没有显示结果

fortran做的书上的一个例子，运行后不报错也没有显示结果，请高手看看
下面是程序所用到的dat.txt文件内容：

座号： 1中文： 80英文： 90数学： 95
座号： 2中文： 90英文： 85数学： 88
座号： 3中文： 75英文： 90数学： 95

下面是fortran程序代码：

module typedef
  type student
    integer Chinese,English,Math
  end type
end module

program ex0907
  use typedef
  implicit none
  type(student)::s
  character(len=80)::filename="data.txt"
  integer,parameter::fileid=10
  logical alive
  integer::error
  integer::no
  
  inquire(file=filename,exist=alive)
  if(.not.alive)then
    write(*,*)trim(filename),"doesn't exist."
    stop
  end if
  
  open(fileid,file=filename)
  do while(.true.)
    read(fileid,"(5xi2,/,5xi3,6xi3,6xi3)",iostat=error)no,s
    if(error/=0)exit
    write(*,"(i2'号 中文：'i3'英文：'i3'数学：'i3)")no,s
  end do
  close(fileid)
  stop
end





已经把文件放入到程序目录下了，还是不能运行，求解
------解决方案--------------------
do while(.true.)
  read(fileid,"(5xi2,/,5xi3,6xi3,6xi3)",iostat=error)no,s
  if(error/=0)exit
  write(*,"(i2'号 中文：'i3'英文：'i3'数学：'i3)")no,s
  end do

这一段错误。