block到底有什么作用，请大家来举例

fcode

和 C++ 的“代码块”类似。

代码块里定义的变量（如您的例子里的temp），作用域只在该代码块
（如果有同名的外部变量或全局变量，则在代码块内覆盖之，代码块结束后重新使之生效）

如下代码，输出为
          33           5           7
           5           7           5
          33           7           5

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

program a

  INTEGER :: i = 5, j = 7 ,temp = 33
  write(*,*) temp,i,j
    BLOCK                  
      INTEGER :: temp
      temp = i 
      i = j 
      j = temp 
      write(*,*) temp , i , j
    END BLOCK         
  write(*,*) temp , i , j     
end program a