[COMMITTED] algol68: add tests for negative arguments to BIN

[Jose E. Marchesi]

This patch adds two additional tests to the execute testsuite, to test
the behavior of BIN when passed negative arguments, covering both
-std=algol68 and -std=gnu68.
---
 gcc/testsuite/algol68/execute/bin-1.a68              | 1 -
 gcc/testsuite/algol68/execute/bin-negative-1.a68     | 4 ++++
 gcc/testsuite/algol68/execute/bin-negative-1.x       | 4 ++++
 gcc/testsuite/algol68/execute/bin-negative-gnu-1.a68 | 4 ++++
 gcc/testsuite/algol68/execute/bin-negative-gnu-1.x   | 4 ++++
 5 files changed, 16 insertions(+), 1 deletion(-)
 create mode 100644 gcc/testsuite/algol68/execute/bin-negative-1.a68
 create mode 100644 gcc/testsuite/algol68/execute/bin-negative-1.x
 create mode 100644 gcc/testsuite/algol68/execute/bin-negative-gnu-1.a68
 create mode 100644 gcc/testsuite/algol68/execute/bin-negative-gnu-1.x

diff --git a/gcc/testsuite/algol68/execute/bin-1.a68 b/gcc/testsuite/algol68/execute/bin-1.a68
index 95f3a2998e6..e9eb0a006b2 100644
--- a/gcc/testsuite/algol68/execute/bin-1.a68
+++ b/gcc/testsuite/algol68/execute/bin-1.a68
@@ -3,6 +3,5 @@ PROGRAM
 BEGIN ASSERT (BIN 255 = 16rff);
       ASSERT (BIN LONG 255 = LONG 16rff);
       ASSERT (BIN LONG LONG 255 = LONG LONG 16rff);
-      # XXX test BIN of negative numbers (extension).  #
       0
 END
diff --git a/gcc/testsuite/algol68/execute/bin-negative-1.a68 b/gcc/testsuite/algol68/execute/bin-negative-1.a68
new file mode 100644
index 00000000000..61033f2872d
--- /dev/null
+++ b/gcc/testsuite/algol68/execute/bin-negative-1.a68
@@ -0,0 +1,4 @@
+PROGRAM
+BEGIN ASSERT (BIN - SHORT SHORT 2 = SHORT SHORT 2r0);
+      0
+END
diff --git a/gcc/testsuite/algol68/execute/bin-negative-1.x b/gcc/testsuite/algol68/execute/bin-negative-1.x
new file mode 100644
index 00000000000..5d1bfa57cb1
--- /dev/null
+++ b/gcc/testsuite/algol68/execute/bin-negative-1.x
@@ -0,0 +1,4 @@
+set algol68_compile_args "-std=algol68"
+
+# carry on..
+return false
diff --git a/gcc/testsuite/algol68/execute/bin-negative-gnu-1.a68 b/gcc/testsuite/algol68/execute/bin-negative-gnu-1.a68
new file mode 100644
index 00000000000..1b4501328fc
--- /dev/null
+++ b/gcc/testsuite/algol68/execute/bin-negative-gnu-1.a68
@@ -0,0 +1,4 @@
+PROGRAM
+BEGIN ASSERT (BIN - SHORT SHORT 2 = SHORT SHORT 2r11111110);
+      0
+END
diff --git a/gcc/testsuite/algol68/execute/bin-negative-gnu-1.x b/gcc/testsuite/algol68/execute/bin-negative-gnu-1.x
new file mode 100644
index 00000000000..009b66d2f99
--- /dev/null
+++ b/gcc/testsuite/algol68/execute/bin-negative-gnu-1.x
@@ -0,0 +1,4 @@
+set algol68_compile_args "-std=gnu68"
+
+# carry on..
+return false
-- 
2.30.2