Add test for subscripting the last element

Author: milancurcic

test/test_subscript.f90

@@ -10,7 +10,7 @@ program test_subscript
 integer :: n, ntests
 
 n = 1
-ntests = 11
+ntests = 12
 call initialize_tests(tests, ntests)
 
 tests(n) = assert(all(subscript([1_int8, 2_int8, 3_int8], [2_int8]) == [2_int8]), &
@@ -45,6 +45,10 @@ program test_subscript
                   'subscript out of bounds returns empty array')
 n = n + 1
 
+tests(n) = assert(all(subscript([1, 2, 3], [3]) == [3]), &
+                  'subscript of last element')
+n = n + 1
+
 tests(n) = assert(all(subscript(arange(cmplx(1._real32, 0._real32), &
                                        cmplx(3._real32, 0._real32)), [2])&
                        == [cmplx(2._real32, 0._real32)]), &