阅读声明fortran

Question

我想知道如何在程序读取文件之前检查文件是否存在，以避免在编译期间出错？

我正在做类似的事情：

if (something) then
  open(2,file='test.dat')
  do j=1,1000
    read(2,*)i, told(i)
  enddo
endif

如果文件不存在，如何添加另一个if语句来停止程序？