length is known
This commit is contained in:
parent
71e17ba917
commit
26e1e979f5
|
@ -312,7 +312,7 @@ subroutine HDF5_addAttribute_str(loc_id,attrLabel,attrValue,path)
|
|||
logical :: attrExists
|
||||
integer :: hdferr
|
||||
character(len=:), allocatable :: p
|
||||
character(len=:,kind=C_CHAR), allocatable,target :: attrValue_
|
||||
character(len=len_trim(attrValue)+1,kind=C_CHAR), target :: attrValue_
|
||||
type(c_ptr), target, dimension(1) :: ptr
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue