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

qingchong

我先说个示例：

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

SUBROUTINE swap(i, j) 
  INTEGER :: i, j 
  IF (i < j) 
    ! The BLOCK statement has no BLOCK_construct_name. The corrsponding END BLOCK 
    ! statement cannot have a BLOCK_construct_name either.
    BLOCK                  
      INTEGER :: temp
      temp = i 
      i = j 
      j = temp 
    END BLOCK         
  END IF              
END SUBROUTINE swap

qingchong

pasuka 发表于 2016-11-21 09:16
如果涉及openmp并行计算的话，block语句算是填补Fortran的空白，因为c和c++都允许在代码中间插入变量申明， ...

能举个例子吗