--- tests_module.f90	2010-03-29 18:09:37.000000000 +0200
+++ tests_module.f90patched	2014-01-09 10:38:48.832447343 +0100
@@ -85,7 +85,7 @@
     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