allow a[-8:*] and a[-8:*:2] + basic unit test. closes #1445 (#1455)

Author: GillesDuvert

src/arrayindex.hpp

@@ -827,16 +827,16 @@ class ArrayIndexORange: public ArrayIndexT
 
   SizeT NIter( SizeT varDim)
   {
-    if( sInit >= varDim) // && s > 0)
-      throw GDLException(-1,NULL,"Subscript out of range [s:*].",true,false);
-    if( sInit < 0)
+     if( sInit < 0)
     {
       s = sInit + varDim;
       if( s < 0)
 	      throw GDLException(-1,NULL,"Subscript out of range [-s:*].",true,false);
 
       return (varDim - s);
-    }
+    } else if( sInit >= varDim) // && s > 0)
+      throw GDLException(-1,NULL,"Subscript out of range [s:*].",true,false);
+
     s = sInit;
     return (varDim - s);
   }

testsuite/LIST

@@ -2,6 +2,7 @@ test_angles.pro
 test_arg_present.pro
 test_array_equal.pro
 test_array_indices.pro
+test_array_indices_star.pro
 test_base64.pro
 test_binfmt.pro
 test_bug_1779553.pro

testsuite/test_array_indices_star.pro

@@ -0,0 +1,6 @@
+; https://github.com/gnudatalanguage/gdl/issues/1445
+pro test_array_indices_star
+  a=cindgen(32)
+  res=EXECUTE('print, a[-8:*]')
+  if ~res then EXIT, status=1
+end