syntax - Fortran if `something:if(some_condition) then` 之前的冒号是什么？

Question

我正在研究其他人编写的一些代码，发现了一段我还没有见过的 Fortran 语法，我不完全理解也似乎无法在网上找到任何相关内容(可能是因为我没有知道它叫什么)。

代码如下所示:

bisection_or_ordering:if(ordering /= 'bisection') then
  ...
  do stuff
  ...
end if bisection_or_ordering

bisection_or_ordering 不是变量，也没有在代码中的任何地方声明。

这是做什么的？它是做什么用的？它叫什么？

Answer 1

冒号前的部分是构造名称。

带有 block 的可执行结构 - if、block、associate、critical、select case、select type，当然还有 do - 可以选择使用这些构造名称。

它们既可用于识别(对于嵌套或长结构的清晰度)，也可用于在 exit 语句下进行控制(除了转义关键 block 或执行并发 block )。

构造名称可能会出现在 block 的结束语句中，如问题示例中所示，但它是可选的，如果存在则必须匹配。