diff -up mpich/test/shared/test_blacs_infrastructure.F90.layout mpich/test/shared/test_blacs_infrastructure.F90
--- mpich/test/shared/test_blacs_infrastructure.F90.layout	2020-06-08 16:09:32.000000000 +0200
+++ mpich/test/shared/test_blacs_infrastructure.F90	2020-09-24 16:32:01.225307325 +0200
@@ -84,7 +84,7 @@ module test_blacs_infrastructure
 #ifdef SXAURORA
       character(len=1), intent(in)        :: layout
 #else
-      character(len=1), intent(in), value :: layout
+      character(kind=c_char), intent(in), value :: layout
 #endif
       TEST_INT_TYPE, intent(out)          :: my_blacs_ctxt, my_prow, my_pcol