diff --git a/test/fortran/versionInfo_suite.f90 b/test/fortran/versionInfo_suite.f90 index a1800400..eb1cc88d 100644 --- a/test/fortran/versionInfo_suite.f90 +++ b/test/fortran/versionInfo_suite.f90 @@ -21,21 +21,21 @@ end subroutine collect_versionInfo_suite subroutine test_versionInfo(error) type(error_type), allocatable, intent(out) :: error - character(len=5) :: version_string + character(len=11) :: version_string character(len=128) :: version_library - integer :: substring_pos + integer :: string_len, substring_pos ! Initialize Trixi call trixi_initialize(julia_project_path) ! Check libtrixi version information - ! Assume single digits - write (version_string, '(i1,a,i1,a,i1,a)') & + write (version_string, '(i0,a,i0,a,i0)') & trixi_version_library_major(), ".", & trixi_version_library_minor(), ".", & trixi_version_library_patch() + string_len = len_trim(version_string) version_library = trixi_version_library() - call check(error, version_string, version_library(1:5)) + call check(error, version_string(1:string_len), version_library(1:string_len)) ! Check Julia packages version information substring_pos = index(trixi_version_julia(), "Trixi")