Skip to content

Commit b53c9a6

Browse files
committed
added note about workaround.
1 parent 0a5fc8b commit b53c9a6

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

src/json_module.F90

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1004,7 +1004,8 @@ recursive subroutine json_value_clone_func(from,to,parent,previous,next,children
10041004
allocate(to)
10051005

10061006
!copy over the data variables:
1007-
1007+
! [note: the allocate() statements don't work here for the
1008+
! deferred-length characters in gfortran-4.9]
10081009
if (allocated(from%name)) to%name = from%name
10091010
if (allocated(from%dbl_value)) allocate(to%dbl_value,source=from%dbl_value)
10101011
if (allocated(from%log_value)) allocate(to%log_value,source=from%log_value)

0 commit comments

Comments
 (0)