Skip to content

Commit 3037722

Browse files
committed
Rename run_type_default (removed from fypp processing)
1 parent 6bf7785 commit 3037722

File tree

1 file changed

+4
-6
lines changed

1 file changed

+4
-6
lines changed

src/stdlib_sorting.fypp

Lines changed: 4 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -151,16 +151,14 @@ module stdlib_sorting
151151
max_merge_stack = int( ceiling( log( 2._dp**64 ) / &
152152
log(1.6180339887_dp) ) )
153153

154-
#:for ki, ti, namei in INT_INDEX_TYPES_ALT_NAME
155-
type run_type_${namei}$
154+
type run_type_default
156155
!! Version: experimental
157156
!!
158157
!! Used to pass state around in a stack among helper functions for the
159158
!! `ORD_SORT` and `SORT_INDEX` algorithms
160-
${ti}$ :: base = 0
161-
${ti}$ :: len = 0
162-
end type run_type_${namei}$
163-
#:endfor
159+
integer(int_index) :: base = 0
160+
integer(int_index) :: len = 0
161+
end type run_type_default
164162

165163
public ord_sort
166164
!! Version: experimental

0 commit comments

Comments
 (0)