Only allocate once

minhqdao · Aug 3, 2024 · 41211db · 41211db
1 parent 16ac793
commit 41211db
Showing 1 changed file with 0 additions and 5 deletions.
diff --git a/src/stdlib_array_allocation.fypp b/src/stdlib_array_allocation.fypp
@@ -23,11 +23,6 @@ contains
             msg = "Failed to allocate array"; return
         end if
 
-        allocate (t_array_${t1[0]}$${k1}$_${rank}$ :: wrapper%array, stat=stat)
-        if (stat /= 0) then
-            msg = 'Failed to allocate array.'; return
-        end if
-
         select type (typed_array => wrapper%array)
           class is (t_array_${t1[0]}$${k1}$_${rank}$)
             typed_array%values = source_array