[RFC 2/3] a68: tests for standard.a68 publicized routines

[Jose E. Marchesi]

This commit adds some tests for the publicized routines in libga68's
Standard module.

Signed-off-by: Jose E. Marchesi <jemarch@gnu.org>

gcc/testsuite/ChangeLog

	* algol68/execute/char-in-string-1.a68: New test.
---
 gcc/testsuite/algol68/execute/char-in-string-1.a68 | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 gcc/testsuite/algol68/execute/char-in-string-1.a68

diff --git a/gcc/testsuite/algol68/execute/char-in-string-1.a68 b/gcc/testsuite/algol68/execute/char-in-string-1.a68
new file mode 100644
index 00000000000..6567431ea5f
--- /dev/null
+++ b/gcc/testsuite/algol68/execute/char-in-string-1.a68
@@ -0,0 +1,5 @@
+access Standard
+begin int pos;
+      assert (char_in_string ("o", pos, "foo"));
+      assert (pos = 2)
+end
-- 
2.30.2