Correct two minor bugs in the test suite:

- the printing size is sometime to small, making repeat() call with negative numbers.
- the buffer when reading a file had dimension hard-coded.

Author: dcaliste

config/etsf/template.tests_init

@@ -20,9 +20,9 @@ contains
     type(etsf_io_low_error), intent(in) :: error
 
     if (lstat) then
-      write(*, "(A,A,A,A)") "== ", name, repeat(" ", 68 - len(name)), "OK     =="
+      write(*, "(A,A,A,A)") "== ", name, repeat(" ", 78 - len(name)), "OK     =="
     else
-      write(*, "(A,A,A,A)") "== ", name, repeat(" ", 68 - len(name)), "Failed =="
+      write(*, "(A,A,A,A)") "== ", name, repeat(" ", 78 - len(name)), "Failed =="
       call etsf_io_low_error_handle(error)
     end if
   end subroutine tests_write_status

tests/group_level/tests_module.f90

@@ -85,7 +85,7 @@ subroutine check_read_nD(ncid, varname, type, dims, lstat, error_data)
     character(len = *), parameter :: me = "check_read_nD"
     integer, allocatable :: int_array(:)
     double precision, allocatable :: dbl_array(:)
-    character(len = 256), allocatable :: strings(:)
+    character(len = dims(1)), allocatable :: strings(:)
 
     ! Allocate temporary read space
     if (type == "integer") then