打印到标准输出使用f95[复制]写入打开的文件

我正在编写代码,并在Fortran中使用输入和输出功能。代码如下所示( 只是为了简化 ):

PROGRAM TEST

  REAL, DIMENSION(1000):: A
  REAL:: B
  INTEGER::T

 !Defining input and output  
  OPEN(UNIT=1, FILE='input.dat', STATUS='OLD')
  OPEN(UNIT=2, FILE='output.dat', STATUS='NEW')  

 !Reading from file "input.dat"  
  READ(1,*) (A(I),I=1,1000)

 !Just for initial condition
  B=0.0  

  DO T=1, 10
    PRINT *, 'Step =', T 
        DO I=1, 1000     
           B=B+1.0     
           A(I)=A(I)/B  
        END DO
  END DO

 !Writing results into file "output.dat"
   DO I=1, 1000
      WRITE (2,100) I, A(I)
   END DO 
   100 FORMAT (' ',T3, I12, T17, F14.4)   

END PROGRAM TEST

我使用的是Gfortran 5.3,结果和我预期的不一样。我期望得到变量的结果 T 在屏幕上(或Ubuntu操作系统中的终端),当程序运行时 I 和 A(I) 写入文件 output.dat 我 和 A(一) ,因为它们已成功写入文件 输出.dat T型 ,它没有出现在终端上,但是它被写入了文件中 input.dat 没有被覆盖。谁能给我提个建议吗?

仅供参考,我还尝试过其他编译器(使用Windows操作系统),例如:

1. Microsoft Fortran Powerstation(非常旧的一个):但它的工作方式和我预期的一样。