Fixed improperly assumed short circuiting.

The code stdlib_sorting_sort.f90 was failing on some systems becasue it
improperlly assumed short circuiting
                do while( i >= 0 .and. array(i) > key )
should have been
                do while( i >= 0 )
		    if (array(i) <= key ) exit

[ticket: X]

Author: wclodius2

src/stdlib_sorting_sort.fypp

@@ -170,7 +170,8 @@ contains
             do j=1_int_size, size(array, kind=int_size)-1
                 key = array(j)
                 i = j - 1
-                do while( i >= 0 .and. array(i) > key )
+                do while( i >= 0 )
+                    if ( array(i) <= key ) exit
                     array(i+1) = array(i)
                     i = i - 1
                 end do
@@ -342,7 +343,8 @@ contains
             do j=1_int_size, size(array, kind=int_size)-1
                 key = array(j)
                 i = j - 1
-                do while( i >= 0 .and. array(i) > key )
+                do while( i >= 0 )
+                    if ( array(i) <= key ) exit
                     array(i+1) = array(i)
                     i = i - 1
                 end do
@@ -509,7 +511,8 @@ contains
             do j=1_int_size, size(array, kind=int_size)-1
                 key = array(j)
                 i = j - 1
-                do while( i >= 0 .and. array(i) > key )
+                do while( i >= 0 )
+                    if ( array(i) <= key ) exit
                     array(i+1) = array(i)
                     i = i - 1
                 end do
@@ -673,7 +676,8 @@ contains
             do j=1_int_size, size(array, kind=int_size)-1
                 key = array(j)
                 i = j - 1
-                do while( i >= 0 .and. array(i) > key )
+                do while( i >= 0 )
+                    if ( array(i) <= key ) exit
                     array(i+1) = array(i)
                     i = i - 1
                 end do