当输入字符而不是数字时，防止 FORTRAN 关闭

我有一个读取语句需要一个数字，非常简单的示例代码：

program test
integer var
read(*,*) var
end

问题是我通常输入一串字符（即：yes）因为分心。如何防止我的代码完全停止并显示以下类型的错误消息您输入了错误的值。再试一次?

我在想这样的事情：

    program test
    integer var
10  read(*,*) var
    if (var.not.a.number) then
      write(*,*)'You've entered an incorrect value. Try again'
      goto 10
    endif
    end

那会是什么变量非数字状况是什么样的？ 我用gfortran在Ubuntu下编译。

Edit： 谢谢你们！我最终实现了 HPM 的第三个选项，因为它是最简单的一个：

    program test
    integer var,iostat,ios
10  read(*,*,iostat=ios) var
    if (ios.ne.0) then
      write(*,*)'You've entered an incorrect value. Try again'
      goto 10
    endif
    end

特别感谢User7391谁花力气写了所有这些代码！

你正在使用列表定向输入。第二*在声明中read(*,*)本质上告诉编译器/运行时系统您将在运行时为其提供一些可以解释为integer。如果您想给自己在输入时犯错误的自由，您有（至少）3 个选择。

1. 正如 @User7391 的答案已经说过的那样，您可以将输入读入字符变量并自行解析。这位好心的用户甚至主动提出为您编写代码！
2. 您可以将读取命令修改为类似的内容read(*,*,err=1234) where 1234是错误处理语句的标签。这种方法现在被认为是相当过时的，可能会令人不悦。
3. 您可以将读取命令修改为类似的内容read(*,*,iostat=ios) where ios是一个整型变量，它捕获iostat（i/o 状态标志）由read陈述。然后你可以写下这一行if (iostat/=0) ...用于错误处理。这被认为是更新的方法。