[COMMITTED] testsuite: fix test cases for apush/apop

[Mohammad-Reza Nabipoor]

2023-01-24  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>

        * testsuite/poke.pkl/apop-diag-2.pk: Fixed.
        * testsuite/poke.pkl/apop-diag-3.pk: Likewise.
        * testsuite/poke.pkl/apush-diag-4.pk: Likewise.
        * testsuite/poke.pkl/apush-diag-5.pk: Likewise.
---
 ChangeLog                          | 7 +++++++
 testsuite/poke.pkl/apop-diag-2.pk  | 2 +-
 testsuite/poke.pkl/apop-diag-3.pk  | 2 +-
 testsuite/poke.pkl/apush-diag-4.pk | 2 +-
 testsuite/poke.pkl/apush-diag-5.pk | 2 +-
 5 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index afebf003..d905bafe 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2023-01-24  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
+
+       * testsuite/poke.pkl/apop-diag-2.pk: Fixed.
+       * testsuite/poke.pkl/apop-diag-3.pk: Likewise.
+       * testsuite/poke.pkl/apush-diag-4.pk: Likewise.
+       * testsuite/poke.pkl/apush-diag-5.pk: Likewise.
+
 2023-01-23  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
 
        * libpoke/pkl-anal.c (pkl_anal2_ps_op_apush_apop): New phase for
diff --git a/testsuite/poke.pkl/apop-diag-2.pk 
b/testsuite/poke.pkl/apop-diag-2.pk
index 336d92dd..70e66032 100644
--- a/testsuite/poke.pkl/apop-diag-2.pk
+++ b/testsuite/poke.pkl/apop-diag-2.pk
@@ -2,4 +2,4 @@
 
 var a = int[2] ();
 
-apop (a); /* { dg-error "apop operation is not allowed" } */
+apop (a); /* { dg-error "apop is not allowed on a bounded array" } */
diff --git a/testsuite/poke.pkl/apop-diag-3.pk 
b/testsuite/poke.pkl/apop-diag-3.pk
index 9c915d99..84f3566d 100644
--- a/testsuite/poke.pkl/apop-diag-3.pk
+++ b/testsuite/poke.pkl/apop-diag-3.pk
@@ -2,4 +2,4 @@
 
 var a = int[12#B] ();
 
-apop (a); /* { dg-error "apop operation is not allowed" } */
+apop (a); /* { dg-error "apop is not allowed on a bounded array" } */
diff --git a/testsuite/poke.pkl/apush-diag-4.pk 
b/testsuite/poke.pkl/apush-diag-4.pk
index d172429c..cdedc810 100644
--- a/testsuite/poke.pkl/apush-diag-4.pk
+++ b/testsuite/poke.pkl/apush-diag-4.pk
@@ -2,4 +2,4 @@
 
 var a = int[3] ();
 
-apush (a, 1); /* { dg-error "apush operation is not allowed" } */
+apush (a, 1); /* { dg-error "apush is not allowed on a bounded array" } */
diff --git a/testsuite/poke.pkl/apush-diag-5.pk 
b/testsuite/poke.pkl/apush-diag-5.pk
index d748e77b..b240249f 100644
--- a/testsuite/poke.pkl/apush-diag-5.pk
+++ b/testsuite/poke.pkl/apush-diag-5.pk
@@ -2,4 +2,4 @@
 
 var a = int[8#B] ();
 
-apush (a, 0); /* { dg-error "apush operation is not allowed" } */
+apush (a, 0); /* { dg-error "apush is not allowed on a bounded array" } */
-- 
2.39.1