length is known

This commit is contained in:
Martin Diehl 2021-07-24 23:08:05 +02:00
parent 71e17ba917
commit 26e1e979f5
1 changed files with 1 additions and 1 deletions

View File

@ -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