We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 3a90b66 commit 961d80eCopy full SHA for 961d80e
src/stdlib_array.fypp
@@ -45,7 +45,7 @@ contains
45
#:for k1, t1 in KINDS_TYPES
46
#:for rank in RANKS
47
!> Allocate an instance of the array within the wrapper.
48
- module subroutine allocate_array_${t1[0]}$${k1}$_${rank}$(wrapper, array, stat, msg)
+ 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)}$
51
integer, intent(out) :: stat
0 commit comments