From 3b066c183949bfde30ec2221d6bb4bd32ebd01c4 Mon Sep 17 00:00:00 2001 From: "Jose E. Marchesi" Date: Mon, 22 Dec 2025 20:39:37 +0100 Subject: [PATCH] a68: fix handling of underscores in PARSE_INDICANT Signed-off-by: Jose E. Marchesi gcc/algol68/ChangeLog * a68-imports.cc (PARSE_INDICANT): Fix handling of uderscore characters. gcc/testsuite/ChangeLog * algol68/execute/modules/Modules20.map (module-bar): Add underscores. --- gcc/algol68/a68-imports.cc | 4 +++- gcc/testsuite/algol68/execute/modules/Modules20.map | 4 ++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/gcc/algol68/a68-imports.cc b/gcc/algol68/a68-imports.cc index 2fbe15d4156..d8c1f1f7ba9 100644 --- a/gcc/algol68/a68-imports.cc +++ b/gcc/algol68/a68-imports.cc @@ -69,7 +69,9 @@ (W)[i++] = *((P)++); \ while (ISALPHA (*(P)) || ISDIGIT(*(P)) || (*(P)) == '_') \ { \ - if ((*(P)) != '_') \ + if ((*(P)) == '_') \ + (P)++; \ + else \ (W)[i++] = *((P)++); \ } \ } \ diff --git a/gcc/testsuite/algol68/execute/modules/Modules20.map b/gcc/testsuite/algol68/execute/modules/Modules20.map index 4bcb669570e..9dbfa071942 100644 --- a/gcc/testsuite/algol68/execute/modules/Modules20.map +++ b/gcc/testsuite/algol68/execute/modules/Modules20.map @@ -1,2 +1,2 @@ -module-foo=Foo: -module-bar=Bar +module-foo=F_oo: +module-bar=Bar_ -- 2.47.3