fixed incorrect right-hand side value

degawa · degawa · commit 6154e2b606fa · 2023-06-25T18:34:50.000+09:00
diff --git a/test/sorting/test_sorting.f90 b/test/sorting/test_sorting.f90
@@ -184,7 +184,7 @@ subroutine initialize_tests()
         end do
 
         do i=0, string_size-1
-            string_decrease(string_size - 1 - i) = char_increase(i)
+            string_decrease(string_size - 1 - i) = string_increase(i)
         end do
 
         string_rand(:) = string_increase(:)
