Longer string temporary.

DJDavies2 · Jun 20, 2024 · 87324ff · 87324ff
1 parent df7f157
commit 87324ff
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fckit/module/fckit_C_interop.F90 b/src/fckit/module/fckit_C_interop.F90
@@ -183,7 +183,7 @@ subroutine copy_c_ptr_to_string(cptr,string)
   type(c_ptr), intent(in) :: cptr
   character(kind=c_char,len=:), allocatable :: string
   character(kind=c_char), dimension(:), pointer  :: s
-  integer(c_int), parameter :: MAX_STR_LEN = 255
+  integer(c_int), parameter :: MAX_STR_LEN = 512
   call c_f_pointer ( cptr , s, (/MAX_STR_LEN/) )
   call copy_c_str_to_string( s, string )
 end subroutine