We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent c2dd715 commit 9b7e0e7Copy full SHA for 9b7e0e7
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)
+ module 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