算術 if 語句

算術 if 語句允許根據算術表示式的結果使用三個分支

if (arith_expr) label1, label2, label3

此 if 語句將控制流傳輸到程式碼中的一個標籤。如果 arith_expr 的結果為負，則涉及 label1，如果結果為零，則使用 label2，如果結果為正，則應用 label3。算術 if 需要所有三個標籤，但它允許重複使用標籤，因此這個陳述可以簡化為兩個分支 if。

例子：

if (N * N - N / 2) 130, 140, 130

if (X) 100, 110, 120

現在這個功能已經過時，if 語句和 if-else 構造提供了相同的功能。例如，片段

    if (X) 100, 110, 120
100 print*, "Negative"
    goto 200
110 print*, "Zero"
    goto 200
120 print*, "Positive"
200 continue

可以寫成 if-else 構造

if (X<0) then
  print*, "Negative"
else if (X==0) then
  print*, "Zero"
else
  print*, "Positive"
end if

一個 if 宣告替代

    if (X) 100, 100, 200
100 print *, "Negative or zero"
200 continue

也許

if (X<=0) print*, "Negative or zero"