https://gcc.gnu.org/g:de1f9a97688112beea79b3a33f3d7860ccd0f3a3
commit r16-6860-gde1f9a97688112beea79b3a33f3d7860ccd0f3a3 Author: Jose E. Marchesi <[email protected]> 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 <[email protected]> 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; } }
