attempted fix for gfortran bug.

Author: jacobwilliams

src/json_value_module.F90

@@ -6963,8 +6963,16 @@ subroutine get_chars_from_array(json, element, i, count)
         !size the output array:
         if (.not. initialized) then
             ! string length long enough to hold the longest one
+#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
+#else
             allocate( character(kind=CK,len=max_len) :: vec(count) )
-            !allocate( ilen(count) )
+#endif
             initialized = .true.
         end if