File tree Expand file tree Collapse file tree 1 file changed +7
-6
lines changed Expand file tree Collapse file tree 1 file changed +7
-6
lines changed Original file line number Diff line number Diff line change @@ -204,13 +204,14 @@ function prepend_string( string, list )
204
204
call prepend_string% insert( list_head, string )
205
205
end function prepend_string
206
206
207
- function append_stringlist ( slist , list )
208
- type (stringlist_type), intent (in ) :: list
209
- type (stringlist_type), intent (in ) :: slist
210
- type (stringlist_type) :: append_stringlist
207
+ function append_stringlist ( list , slist )
208
+ type (stringlist_type), intent (in ) :: list
209
+ type (stringlist_type), intent (in ) :: slist
210
+ type (stringlist_type) :: append_stringlist
211
+
212
+ append_stringlist = list
213
+ call append_stringlist% insert( list_after_end, slist )
211
214
212
- append_stringlist = list
213
- call append_stringlist% insert( list_after_end, slist )
214
215
end function append_stringlist
215
216
216
217
function append_stringarray ( list , sarray )
You can’t perform that action at this time.
0 commit comments