From 40ba4ffa849420c24eacd60694aeaabc9432e1f0 Mon Sep 17 00:00:00 2001
From: "James K. Lowden" <jklowden@symas.com>
Date: Wed, 8 May 2024 11:27:39 -0400
Subject: [PATCH] fix parser_assign (for COMPUTE) with -fsyntax-only
---
gcc/cobol/genapi.cc | 1 +
1 file changed, 1 insertion(+)
diff --git a/gcc/cobol/genapi.cc b/gcc/cobol/genapi.cc
index 1e9b821981ae..dbe02996eab2 100644
--- a/gcc/cobol/genapi.cc
+++ b/gcc/cobol/genapi.cc
@@ -4690,6 +4690,7 @@ parser_assign( size_t nC, cbl_num_result_t *C,
cbl_label_t *compute_error)
{
Analyze();
+ RETURN_IF_PARSE_ONLY;
// There might, or might not, already be error and/or not_error labels:
set_up_arith_error_label(on_error);
set_up_arith_error_label(not_error);
--
GitLab