Contatenate differently

Author: minhqdao

src/stdlib_io_np_save.fypp

@@ -212,6 +212,7 @@ contains
         logical :: is_compressed
         character(len=:), allocatable :: msg
         type(string_type), allocatable :: files(:)
+        type(string_type) :: new_string
 
         if (present(iostat)) iostat = 0
         stat = 0
@@ -246,7 +247,8 @@ contains
                     return
                 end if
 
-                files = [files, string_type(typed_array%name)]
+                new_string = string_type(typed_array%name)
+                files = [files, new_string]
 #:endfor
 #:endfor
               class default