[gcc r16-6860] a68: fix logic for name comparison in are_packs_equivalent [PR algol68/123653]

[Jose E. Marchesi]

https://gcc.gnu.org/g:de1f9a97688112beea79b3a33f3d7860ccd0f3a3

commit r16-6860-gde1f9a97688112beea79b3a33f3d7860ccd0f3a3
Author: Jose E. Marchesi <jemarch@gnu.org>
Date:   Sat Jan 17 21:12:24 2026 +0100

    a68: fix logic for name comparison in are_packs_equivalent [PR algol68/123653]
    
    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.

Diff:
---
 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 c022f9cb6732..260eb4209a6a 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;
 	}
     }