From 15837a5fd46a1c9051d54138ba3ade26c74091f1 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Mon, 5 Apr 2021 12:02:46 -0400 Subject: Fixed URL issues in player --- common/network.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'common/network.F90') 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 -- cgit v1.2.3