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 6bf7785 commit 3037722Copy full SHA for 3037722
src/stdlib_sorting.fypp
@@ -151,16 +151,14 @@ module stdlib_sorting
151
max_merge_stack = int( ceiling( log( 2._dp**64 ) / &
152
log(1.6180339887_dp) ) )
153
154
-#:for ki, ti, namei in INT_INDEX_TYPES_ALT_NAME
155
- type run_type_${namei}$
+ type run_type_default
156
!! Version: experimental
157
!!
158
!! Used to pass state around in a stack among helper functions for the
159
!! `ORD_SORT` and `SORT_INDEX` algorithms
160
- ${ti}$ :: base = 0
161
- ${ti}$ :: len = 0
162
- end type run_type_${namei}$
163
-#:endfor
+ integer(int_index) :: base = 0
+ integer(int_index) :: len = 0
+ end type run_type_default
164
165
public ord_sort
166
0 commit comments