Skip to content

Commit a79741e

Browse files
committed
Make array allocatable
1 parent 44f2627 commit a79741e

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/stdlib_array.fypp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -44,7 +44,7 @@ contains
4444
!> Allocate an instance of the array within the wrapper.
4545
subroutine allocate_array_${t1[0]}$${k1}$_${rank}$ (wrapper, array, stat, msg)
4646
class(t_array_wrapper), intent(out) :: wrapper
47-
${t1}$, intent(in) :: array${ranksuffix(rank)}$
47+
${t1}$, allocatable, intent(in) :: array${ranksuffix(rank)}$
4848
integer, intent(out) :: stat
4949
character(len=:), allocatable, intent(out) :: msg
5050

0 commit comments

Comments
 (0)