added compiler directives to eliminate gfortran bug workarounds on other compilers.

Author: jacobwilliams

src/json_value_module.F90

@@ -4724,8 +4724,10 @@ recursive subroutine parse_value(json, unit, str, value)
 
     logical(LK) :: eof
     character(kind=CK,len=1) :: c
+#if defined __GFORTRAN__
     character(kind=CK,len=:),allocatable :: tmp  !! this is a work-around for a bug
                                                  !! in the gfortran 4.9 compiler.
+#endif
 
     if (.not. json%exception_thrown) then
 
@@ -4766,9 +4768,13 @@ recursive subroutine parse_value(json, unit, str, value)
 
                 select case (value%var_type)
                 case (json_string)
-                    call json%parse_string(unit, str, tmp) !write to a tmp variable because of
-                    value%str_value = tmp                  ! a bug in 4.9 gfortran compiler.
-                    deallocate(tmp)                        !
+#if defined __GFORTRAN__
+                    call json%parse_string(unit,str,tmp)  ! write to a tmp variable because of
+                    value%str_value = tmp                 ! a bug in 4.9 gfortran compiler.
+                    deallocate(tmp)                       !
+#else
+                    call json%parse_string(unit, str, value%str_value)
+#endif
                 end select
 
             case (CK_'t') !true_str(1:1) gfortran bug work around
@@ -5343,8 +5349,10 @@ recursive subroutine parse_object(json, unit, str, parent)
     type(json_value),pointer :: pair
     logical(LK) :: eof
     character(kind=CK,len=1) :: c
+#if defined __GFORTRAN__
     character(kind=CK,len=:),allocatable :: tmp  !! this is a work-around for a bug
                                                  !! in the gfortran 4.9 compiler.
+#endif
 
     if (.not. json%exception_thrown) then
 
@@ -5366,9 +5374,13 @@ recursive subroutine parse_object(json, unit, str, parent)
             return
         else if (quotation_mark == c) then
             call json_value_create(pair)
-            call json%parse_string(unit, str, tmp)   !write to a tmp variable because of
-            pair % name = tmp                   ! a bug in 4.9 gfortran compiler.
+#if defined __GFORTRAN__
+            call json%parse_string(unit,str,tmp)   ! write to a tmp variable because of
+            pair%name = tmp                        ! a bug in 4.9 gfortran compiler.
             deallocate(tmp)
+#else
+            call json%parse_string(unit,str,pair%name)
+#endif
             if (json%exception_thrown) then
                 call json%destroy(pair)
                 return