From 02158516f21b31fe0321d6a71b3d8a542cfdd4cb Mon Sep 17 00:00:00 2001
From: Axel Kohlmeyer <akohlmey@gmail.com>
Date: Mon, 3 Oct 2022 17:58:14 -0400
Subject: [PATCH] use large string buffers to avoid truncation

---
 unittest/fortran/test_fortran_extract_variable.f90 | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/unittest/fortran/test_fortran_extract_variable.f90 b/unittest/fortran/test_fortran_extract_variable.f90
index af6ed0c019..1e05dd5a27 100644
--- a/unittest/fortran/test_fortran_extract_variable.f90
+++ b/unittest/fortran/test_fortran_extract_variable.f90
@@ -87,7 +87,7 @@ FUNCTION f_lammps_with_C_args(argc, argv) BIND(C)
   INTEGER(c_int), INTENT(IN), VALUE :: argc
   TYPE(c_ptr), VALUE :: argv
   TYPE(c_ptr), DIMENSION(:), POINTER :: Fargv
-  INTEGER, PARAMETER :: ARG_LENGTH = 80
+  INTEGER, PARAMETER :: ARG_LENGTH = 256
   TYPE(c_ptr) :: f_lammps_with_C_args
   CHARACTER(LEN=ARG_LENGTH), DIMENSION(argc) :: args
   CHARACTER(LEN=1,KIND=c_char), DIMENSION(:), POINTER :: Cstr
@@ -179,7 +179,7 @@ FUNCTION f_lammps_extract_variable_index_1 () BIND(C)
   USE keepstuff, ONLY : lmp
   IMPLICIT NONE
   INTEGER(c_int) :: f_lammps_extract_variable_index_1
-  CHARACTER(LEN=80) :: str
+  CHARACTER(LEN=256) :: str
 
   str = lmp%extract_variable("idx")
   IF ( trim(str) == 'hello' ) THEN
@@ -195,7 +195,7 @@ FUNCTION f_lammps_extract_variable_index_2 () BIND(C)
   USE keepstuff, ONLY : lmp
   IMPLICIT NONE
   INTEGER(c_int) :: f_lammps_extract_variable_index_2
-  CHARACTER(LEN=80) :: str
+  CHARACTER(LEN=256) :: str
 
   str = lmp%extract_variable("idx")
   IF ( trim(str) == 'goodbye' ) THEN
@@ -211,7 +211,7 @@ FUNCTION f_lammps_extract_variable_loop () BIND(C)
   USE keepstuff, ONLY : lmp
   IMPLICIT NONE
   INTEGER(c_int) :: f_lammps_extract_variable_loop
-  CHARACTER(LEN=80) :: loop
+  CHARACTER(LEN=256) :: loop
 
   loop = lmp%extract_variable('lp')
   READ(loop,*) f_lammps_extract_variable_loop
@@ -262,7 +262,7 @@ FUNCTION f_lammps_extract_variable_uloop () BIND(C)
   USE keepstuff, ONLY : lmp
   IMPLICIT NONE
   INTEGER(c_int) :: f_lammps_extract_variable_uloop
-  CHARACTER(LEN=80) :: uloop
+  CHARACTER(LEN=256) :: uloop
 
   uloop = lmp%extract_variable('ulp')
   READ(uloop,*) f_lammps_extract_variable_uloop
@@ -275,7 +275,7 @@ FUNCTION f_lammps_extract_variable_string () BIND(C)
   USE keepvar, ONLY : f2c_string
   IMPLICIT NONE
   TYPE(c_ptr) :: f_lammps_extract_variable_string
-  CHARACTER(LEN=40) :: string
+  CHARACTER(LEN=256) :: string
 
   string = lmp%extract_variable('str')
   f_lammps_extract_variable_string = f2c_string(string)