another attempt to fix gfortran bug on Travis.

Author: jacobwilliams

src/json_value_module.F90

@@ -6966,10 +6966,11 @@ subroutine get_chars_from_array(json, element, i, count)
 #if defined __GFORTRAN__
             ! this is a work-around for a bug
             ! in the gfortran 4.9 compiler.
-            block
-                character(kind=CK,len=max_len),dimension(count) :: tmp_array
-                vec = tmp_array
-            end block
+            call allocate_vec(max_len,count)
+            !block
+            !    character(kind=CK,len=max_len),dimension(count) :: tmp_array
+            !    vec = tmp_array
+            !end block
 #else
             allocate( character(kind=CK,len=max_len) :: vec(count) )
 #endif
@@ -6989,6 +6990,21 @@ subroutine get_chars_from_array(json, element, i, count)
 
         end subroutine get_chars_from_array
 
+        subroutine allocate_vec(max_len,count)
+
+        !! try to allocate on assignment to avoid gfortran bug.
+
+        implicit none
+
+        integer(IK),intent(in) :: max_len
+        integer(IK),intent(in) :: count
+
+        character(kind=CK,len=max_len),dimension(count) :: tmp_array
+
+        vec = tmp_array
+
+        end subroutine allocate_vec
+
     end subroutine json_get_alloc_string_vec
 !*****************************************************************************************