We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 70d34a4 commit e7cab10Copy full SHA for e7cab10
src/stdlib_sorting_sort_index.fypp
@@ -192,7 +192,8 @@ contains
192
${t1}$, intent(inout) :: array(0:)
193
${ti}$, intent(inout) :: index(0:)
194
195
- ${ti}$ :: i, j, key_index
+ ${ti}$ :: i, j
196
+ ${ti}$ :: key_index
197
${t3}$ :: key
198
199
do j=1, size(array, kind=${ki}$)-1
@@ -277,7 +278,8 @@ contains
277
278
279
280
${t3}$ :: tmp
- ${ti}$ :: i, tmp_index
281
+ ${ti}$ :: i
282
+ ${ti}$ :: tmp_index
283
284
tmp = array(0)
285
tmp_index = index(0)
@@ -474,7 +476,8 @@ contains
474
476
475
477
478
- ${ti}$ :: itemp, lo, hi
479
+ ${ti}$ :: itemp
480
+ ${ti}$ :: lo, hi
481
${t3}$ :: temp
482
483
lo = 0
0 commit comments