try gfortran-6 on travis.

Author: jacobwilliams

.travis.yml

@@ -18,7 +18,7 @@ addons:
       - kalakris-cmake
       - ubuntu-toolchain-r-test
     packages:
-      - gfortran-5
+      - gfortran-6
       - binutils
       - cmake
       - python-pip
@@ -53,10 +53,10 @@ install:
       mkdir "$HOME/.local/bin"
     fi
   - export PATH="$HOME/.local/bin:$PATH"
-  - export FC=/usr/bin/gfortran-5
-  - ln -fs /usr/bin/gfortran-5 "$HOME/.local/bin/gfortran" && gfortran --version
-  - ls -l /usr/bin/gfortran-5
-  - ln -fs /usr/bin/gcov-5 "$HOME/.local/bin/gcov" && gcov --version
+  - export FC=/usr/bin/gfortran-6
+  - ln -fs /usr/bin/gfortran-6 "$HOME/.local/bin/gfortran" && gfortran --version
+  - ls -l /usr/bin/gfortran-6
+  - ln -fs /usr/bin/gcov-6 "$HOME/.local/bin/gcov" && gcov --version
   - perl --version
   - |
     if ! which f90split; then

src/json_value_module.F90

@@ -6963,17 +6963,17 @@ 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
+!#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
             allocate( character(kind=CK,len=max_len) :: vec(count) )
-#endif
+!#endif
             initialized = .true.
         end if
 
@@ -6990,20 +6990,20 @@ 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
+        !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
 !*****************************************************************************************