[COMMITTED] algol68: fix buffer overflow in a68_string_process_breaks

[Jose E. Marchesi]

---
 gcc/algol68/a68-low-strings.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/algol68/a68-low-strings.cc b/gcc/algol68/a68-low-strings.cc
index ae2e7904aa8..f9fdd56febd 100644
--- a/gcc/algol68/a68-low-strings.cc
+++ b/gcc/algol68/a68-low-strings.cc
@@ -312,7 +312,7 @@ a68_string_process_breaks (const char *str)
 		  /* An Unicode codepoint encoded in UTF-8 occupies at most six
 		     octets.  */
 		  len += 6;
-		  p += (p[1] == 'u' ? 5 : 9);
+		  p += (p[0] == 'u' ? 5 : 9);
 		}
 	      break;
 	    default:
-- 
2.30.2