fortran中label

在Fortran中，label是用来标记代码行的标识符。它通常用于控制流程和跳转语句，例如GOTO语句。每个label必须是一个整数，并且在同一程序中必须是唯一的。

以下是一个使用label的Fortran代码示例[^1]：

program label_example
    implicit none
    integer :: i

    do i = 1, 5
        if (i == 3) then
            goto 100
        else
            write(*, *) "Loop iteration:", i
        end if
    end do

100 continue
    write(*, *) "Jumped to label 100"

end program label_example

在上面的示例中，当循环变量`i`等于3时，程序会跳转到标签为100的代码行。否则，程序会输出当前循环的迭代次数。

请注意，尽管在Fortran中可以使用label，但在现代编程实践中，尽量避免使用GOTO语句和label，因为它们可能会导致代码难以理解和维护。更好的做法是使用结构化的控制流程语句，如IF-THEN-ELSE和DO循环。