Skip to content

Commit 41211db

Browse files
committed
Only allocate once
1 parent 16ac793 commit 41211db

File tree

1 file changed

+0
-5
lines changed

1 file changed

+0
-5
lines changed

src/stdlib_array_allocation.fypp

Lines changed: 0 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -23,11 +23,6 @@ contains
2323
msg = "Failed to allocate array"; return
2424
end if
2525

26-
allocate (t_array_${t1[0]}$${k1}$_${rank}$ :: wrapper%array, stat=stat)
27-
if (stat /= 0) then
28-
msg = 'Failed to allocate array.'; return
29-
end if
30-
3126
select type (typed_array => wrapper%array)
3227
class is (t_array_${t1[0]}$${k1}$_${rank}$)
3328
typed_array%values = source_array

0 commit comments

Comments
 (0)