输出出错error（200）：program aborting due to window-close event

hys

[Fortran] 纯文本查看 复制代码

program ex0513
  implicit none
  real a,b,c
  character g
  read(*,*)a
  read(*,"(a1)")g
  read(*,*)b
  select case(g)
  case('+')
    c=a+b
  case('-')
    c=a-b
  case('*')
    c=a*b
  case('/')
    c=a/b
    case default
    write(*,*)"输入出错"
    stop
  end select
  write(*,"(f6.2,a1,f6.2,'=',f6.2)")a,g,b,c
  stop
end

运行成功，但是输出：error（200）：program aborting due to window-close event

fcode

程序没结束前，不要点 X 关闭窗口，不然就会出这个错误。

zjk0112

这，好无语。