diff options
Diffstat (limited to 'common/network.F90')
-rw-r--r-- | common/network.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/common/network.F90 b/common/network.F90 index 90bf2be..860830b 100644 --- a/common/network.F90 +++ b/common/network.F90 @@ -293,7 +293,7 @@ implicit none ! Extract the name hnamelen = strlen_c(cres%h_name) call c_f_pointer(cres%h_name, h_name, [hnamelen]) - allocate(character(len=i) :: res%h_name) + allocate(character(len=hnamelen) :: res%h_name) do i = 1, hnamelen res%h_name(i:i) = h_name(i) end do |