add warning in code. Keep Travis at gfortran-6.

Author: jacobwilliams

src/json_value_module.F90

@@ -6922,6 +6922,9 @@ end subroutine wrap_json_get_string_vec_by_path
 !
 !@note This is somewhat inefficient since it does
 !      cycle through the array twice.
+!
+!@warning The allocation of `vec` doesn't work with
+!         gfortran 4.9 or 5 due to compiler bugs
 
     subroutine json_get_alloc_string_vec(json, me, vec, ilen)
 
@@ -6963,17 +6966,8 @@ 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.
-!            call allocate_vec(max_len,count)
-!            !block
-!            !    character(kind=CK,len=max_len),dimension(count) :: tmp_array
-!            !    vec = tmp_array
-!            !end block
-!#else
+            ! Note that this doesn't work with gfortran 4.9 or 5.
             allocate( character(kind=CK,len=max_len) :: vec(count) )
-!#endif
             initialized = .true.
         end if
 
@@ -6990,21 +6984,6 @@ 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
 !*****************************************************************************************