Skip to content

Commit e7cab10

Browse files
committed
Split index and iterators in sort_index
1 parent 70d34a4 commit e7cab10

File tree

1 file changed

+6
-3
lines changed

1 file changed

+6
-3
lines changed

src/stdlib_sorting_sort_index.fypp

Lines changed: 6 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -192,7 +192,8 @@ contains
192192
${t1}$, intent(inout) :: array(0:)
193193
${ti}$, intent(inout) :: index(0:)
194194

195-
${ti}$ :: i, j, key_index
195+
${ti}$ :: i, j
196+
${ti}$ :: key_index
196197
${t3}$ :: key
197198

198199
do j=1, size(array, kind=${ki}$)-1
@@ -277,7 +278,8 @@ contains
277278
${ti}$, intent(inout) :: index(0:)
278279

279280
${t3}$ :: tmp
280-
${ti}$ :: i, tmp_index
281+
${ti}$ :: i
282+
${ti}$ :: tmp_index
281283

282284
tmp = array(0)
283285
tmp_index = index(0)
@@ -474,7 +476,8 @@ contains
474476
${t1}$, intent(inout) :: array(0:)
475477
${ti}$, intent(inout) :: index(0:)
476478

477-
${ti}$ :: itemp, lo, hi
479+
${ti}$ :: itemp
480+
${ti}$ :: lo, hi
478481
${t3}$ :: temp
479482

480483
lo = 0

0 commit comments

Comments
 (0)