[COMMITTED] algol68: new test plusto-char-1.a68

[Jose E. Marchesi]

---
 gcc/testsuite/algol68/execute/plusto-char-1.a68 | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 gcc/testsuite/algol68/execute/plusto-char-1.a68

diff --git a/gcc/testsuite/algol68/execute/plusto-char-1.a68 b/gcc/testsuite/algol68/execute/plusto-char-1.a68
new file mode 100644
index 00000000000..8af55f1144f
--- /dev/null
+++ b/gcc/testsuite/algol68/execute/plusto-char-1.a68
@@ -0,0 +1,7 @@
+begin string foo := "foo";
+      char c := "x";
+      c PLUSTO foo;
+      assert (foo = "foox");
+      c +=: foo;
+      assert (foo = "fooxx")
+end
-- 
2.30.2