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 )
204204 call prepend_string% insert( list_head, string )
205205end function prepend_string
206206
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 )
211214
212- append_stringlist = list
213- call append_stringlist% insert( list_after_end, slist )
214215end function append_stringlist
215216
216217function append_stringarray ( list , sarray )
You can’t perform that action at this time.
0 commit comments