From 9670d7c2fe3e665a00ed2c5f7d6873c04c620c44 Mon Sep 17 00:00:00 2001
From: minhqdao <hello@minhdao.de>
Date: Tue, 30 Jul 2024 23:17:07 +0530
Subject: [PATCH] Add allocatable attribute

---
 src/stdlib_array.fypp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/stdlib_array.fypp b/src/stdlib_array.fypp
index ab2811ef3..ec3ab924f 100644
--- a/src/stdlib_array.fypp
+++ b/src/stdlib_array.fypp
@@ -47,7 +47,7 @@ contains
             !> Allocate an instance of the array within the wrapper.
             subroutine allocate_array_${t1[0]}$${k1}$_${rank}$(wrapper, array, stat, msg)
                 class(t_array_wrapper), intent(out) :: wrapper
-                ${t1}$, intent(in) :: array${ranksuffix(rank)}$
+                ${t1}$, allocatable, intent(in) :: array${ranksuffix(rank)}$
                 integer, intent(out) :: stat
                 character(len=:), allocatable, intent(out) :: msg