remove redundant while(.true.)

Author: gareth-nx

src/stdlib_selection.fypp

@@ -90,7 +90,7 @@ contains
               error stop "select must have 1 <= k <= size(a), and 1 <= left <= right <= size(a)";
           end if
 
-          do while(.true.)
+          do
               mid = l + ((r-l)/2_ip) ! Avoid (l+r)/2 which can cause overflow
 
               call medianOf3(a, l, mid, r)
@@ -206,7 +206,7 @@ contains
               error stop "arg_select must have 1 <= k <= size(a), and 1 <= left <= right <= size(a)";
           end if
 
-          do while(.true.)
+          do
               mid = l + ((r-l)/2_ip) ! Avoid (l+r)/2 which can cause overflow
 
               call arg_medianOf3(a, indx, l, mid, r)