From ed2d107c598b86c1e910d8077435b412b7ba3af2 Mon Sep 17 00:00:00 2001
From: Asfmq <2696428814@qq.com>
Date: Sat, 4 Apr 2026 23:01:25 +0800
Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E5=A4=8D8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/tlusty/main.rs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/tlusty/main.rs b/src/tlusty/main.rs
index 0dd8386..1e9388b 100644
--- a/src/tlusty/main.rs
+++ b/src/tlusty/main.rs
@@ -333,9 +333,16 @@ pub fn run_tlusty<R: io::BufRead, W: io::Write>(
     // ========================================
 
     // 10 ITER=ITER+1
-    while !state.lfin && state.iter < state.niter {
+    // Fortran 用 GO TO 实现循环: 至少执行一次，然后检查 LFIN
+    // 等价于 do-while 模式
+    loop {
         state.iter += 1;
 
+        // 安全检查：避免无限循环
+        if state.iter > state.niter {
+            break;
+        }
+
         // CALL RESOLV
         let resolv_config = ResolvConfig {
             iter: state.iter,