[COMMITTED] a68: fix logic for name comparison in are_packs_equivalent [PR algol68/123653]

[Jose E. Marchesi]

Signed-off-by: Jose E. Marchesi <jemarch@gnu.org>

gcc/algol68/ChangeLog

	PR algol68/123653
	* a68-parser-moids-equivalence.cc (are_packs_equivalent): Fix
	logic in name comparison.
---
 gcc/algol68/a68-parser-moids-equivalence.cc | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/algol68/a68-parser-moids-equivalence.cc b/gcc/algol68/a68-parser-moids-equivalence.cc
index c022f9cb673..260eb4209a6 100644
--- a/gcc/algol68/a68-parser-moids-equivalence.cc
+++ b/gcc/algol68/a68-parser-moids-equivalence.cc
@@ -50,9 +50,9 @@ are_packs_equivalent (PACK_T *s, PACK_T *t,
       if (compare_names)
 	{
 	  if (TEXT (s) != TEXT (t)
-	      && TEXT (s) != NO_TEXT
-	      && TEXT (t) != NO_TEXT
-	      && strcmp (TEXT (s), TEXT (t)) != 0)
+	      && !(TEXT (s) != NO_TEXT
+		   && TEXT (t) != NO_TEXT
+		   && strcmp (TEXT (s), TEXT (t)) == 0))
 	    return false;
 	}
     }
-- 
2.39.5