Use generic again

Author: minhqdao

src/stdlib_array.fypp

@@ -20,6 +20,7 @@ module stdlib_array
     contains
         #:for k1, t1 in KINDS_TYPES
             #:for rank in RANKS
+                generic :: allocate_array => allocate_array_${t1[0]}$${k1}$_${rank}$
                 procedure :: allocate_array_${t1[0]}$${k1}$_${rank}$
             #:endfor
         #:endfor

src/stdlib_io_np_load.fypp

@@ -180,7 +180,7 @@ contains
                                 & 'with total size of '//to_string(product(vshape)); return
                         end if
 
-                        call arrays(i)%allocate_array_${t1[0]}$${k1}$_${rank}$(array, stat, msg)
+                        call arrays(i)%allocate_array(array, stat, msg)
                         if (stat /= 0) then
                             msg = "Failed to allocate array of type '"//this_type//"' "//&
                                 & 'with total size of '//to_string(product(vshape)); return