We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent b435ce0 commit 9670d7cCopy full SHA for 9670d7c
src/stdlib_array.fypp
@@ -47,7 +47,7 @@ contains
47
!> Allocate an instance of the array within the wrapper.
48
subroutine allocate_array_${t1[0]}$${k1}$_${rank}$(wrapper, array, stat, msg)
49
class(t_array_wrapper), intent(out) :: wrapper
50
- ${t1}$, intent(in) :: array${ranksuffix(rank)}$
+ ${t1}$, allocatable, intent(in) :: array${ranksuffix(rank)}$
51
integer, intent(out) :: stat
52
character(len=:), allocatable, intent(out) :: msg
53
0 commit comments