From f25aa0ca644a1d043c8e3a53e46c7ccdaefadd6a Mon Sep 17 00:00:00 2001 From: Yen-Chen Chen Date: Mon, 18 May 2026 09:42:12 +0200 Subject: [PATCH] Stop code should be constant expression --- src/suite.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/suite.f90 b/src/suite.f90 index 70cb637..f831f99 100644 --- a/src/suite.f90 +++ b/src/suite.f90 @@ -115,7 +115,7 @@ SUBROUTINE TEST_SUMMARY(QUIET) IF(FUTF_EXIT_CODE == 0) THEN STOP ELSE - ERROR STOP FUTF_EXIT_CODE + ERROR STOP END IF END IF END SUBROUTINE