clear memory before use

2022-12-19 20:42:15 -05:00
parent a4f2e452e0
commit c160eb7f11
1 changed files with 2 additions and 0 deletions
--- a/unittest/fortran/test_fortran_properties.f90
+++ b/unittest/fortran/test_fortran_properties.f90
@ -72,10 +72,12 @@ FUNCTION f_lammps_get_last_error_message(errmesg, errlen) BIND(C)
   CALL lmp%get_last_error_message(buffer, status)
   f_lammps_get_last_error_message = status
   ! and copy to C style string
+   errmesg(1:errlen) = c_null_char
   DO i=1, errlen
      errmesg(i) = buffer(i:i)
      IF (buffer(i:i) == c_null_char) EXIT
   END DO
+   errmesg(errlen) = c_null_char
   DEALLOCATE(buffer)
 END FUNCTION f_lammps_get_last_error_message