Fix issue with Intel compilers

Author: jvdp1

test/sorting/test_sorting.fypp

@@ -1626,7 +1626,7 @@ contains
         tdiff = 0
         do i = 1, repeat
             dummy = a
-            adjoint = int([(j, j=1_int64, size(a, kind=1_int64))], kind=${namei}$)
+            adjoint = int([(j, j=1_int64, size(a, kind=int64))], kind=${namei}$)
             call system_clock( t0, rate )
             call sort_adjoint( dummy, adjoint, work, iwork )
             call system_clock( t1, rate )
@@ -1647,7 +1647,7 @@ contains
 
         !reverse
         dummy = a
-        adjoint = int([(j, j=1_int64, size(a, kind=1_int64))], kind=${namei}$)
+        adjoint = int([(j, j=1_int64, size(a, kind=int64))], kind=${namei}$)
         call sort_adjoint( dummy, adjoint, work, iwork, reverse=.true. )
 
         call verify_reverse_sort( dummy, valid, i )
@@ -1696,7 +1696,7 @@ contains
         tdiff = 0
         do i = 1, repeat
             char_dummy = a
-            adjoint = int([(j, j=1_int64, size(a, kind=1_int64))], kind=${namei}$)
+            adjoint = int([(j, j=1_int64, size(a, kind=int64))], kind=${namei}$)
             call system_clock( t0, rate )
 
             call sort_adjoint( char_dummy, adjoint, char_work, iwork )
@@ -1756,7 +1756,7 @@ contains
         tdiff = 0
         do i = 1, repeat
             string_dummy = a
-            adjoint = int([(j, j=1_int64, size(a, kind=1_int64))], kind=${namei}$)
+            adjoint = int([(j, j=1_int64, size(a, kind=int64))], kind=${namei}$)
             call system_clock( t0, rate )
             call sort_adjoint( string_dummy, adjoint, string_work, iwork )
             call system_clock( t1, rate )
@@ -1814,7 +1814,7 @@ contains
         tdiff = 0
         do i = 1, repeat
             bitsetl_dummy = a
-            adjoint = int([(j, j=1_int64, size(a, kind=1_int64))], kind=${namei}$)
+            adjoint = int([(j, j=1_int64, size(a, kind=int64))], kind=${namei}$)
             call system_clock( t0, rate )
             call sort_adjoint( bitsetl_dummy, adjoint, bitsetl_work, iwork )
             call system_clock( t1, rate )
@@ -1874,7 +1874,7 @@ contains
         tdiff = 0
         do i = 1, repeat
             bitset64_dummy = a
-            adjoint = int([(j, j=1_int64, size(a, kind=1_int64))], kind=${namei}$)
+            adjoint = int([(j, j=1_int64, size(a, kind=int64))], kind=${namei}$)
             call system_clock( t0, rate )
             call sort_adjoint( bitset64_dummy, adjoint, bitset64_work, iwork )
             call system_clock( t1, rate )