From 1fdf7dac517ab24edab2e5ef61d4e6fce358791e Mon Sep 17 00:00:00 2001
From: Giles Atkinson <“gatk555@gmail.com”>
Date: Tue, 2 May 2023 12:24:39 +0100
Subject: [PATCH] Fix Bug #623 - "Parser warning for voltage source". Do not
 warn when a single-element vector lacks parentheses.

---
 src/spicelib/parser/inpgval.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/spicelib/parser/inpgval.c b/src/spicelib/parser/inpgval.c
index 1f5d9acaa..f9f84ad14 100644
--- a/src/spicelib/parser/inpgval.c
+++ b/src/spicelib/parser/inpgval.c
@@ -53,7 +53,8 @@ INPgetValue(CKTcircuit *ckt, char **line, int type, INPtables *tab)
             list[temp.v.numValue - 1] = tmp;
             tmp = INPevaluate(line, &error, 1);
         }
-        if (error && ft_ngdebug && !eq(*line, "") && !prefix(")", *line)) {
+        if (error && ft_ngdebug && !eq(*line, "") && !prefix(")", *line) &&
+            temp.v.numValue > 1) {
             fprintf(stderr, "\nWarning: Reading a vector without limiting parens may be dangerous\n%s\nat\n", compline);
             fprintf(stderr, "%*s%s\n", (int)(*line - compline)," ", *line);
         }
@@ -76,7 +77,8 @@ INPgetValue(CKTcircuit *ckt, char **line, int type, INPtables *tab)
             ilist[temp.v.numValue - 1] = (int) floor(0.5 + tmp);
             tmp = INPevaluate(line, &error, 1);
         }
-        if (error && ft_ngdebug && !eq(*line, "") && !prefix(")", *line)) {
+        if (error && ft_ngdebug && !eq(*line, "") && !prefix(")", *line) &&
+            temp.v.numValue > 1) {
             fprintf(stderr, "\nWarning: Reading a vector without limiting parens may be dangerous\n%s\nat\n", compline);
             fprintf(stderr, "%*s%s\n", (int)(*line - compline), " ", *line);
         }