diff --git a/src/homogenization.f90 b/src/homogenization.f90
index 02f1d3bf0..33af8ff95 100644
--- a/src/homogenization.f90
+++ b/src/homogenization.f90
@@ -529,7 +529,7 @@ subroutine homogenization_results
     material_homogenization_type => homogenization_type
 
   integer :: p
-  character(len=pStringLen) :: group_base,group
+  character(len=:), allocatable :: group_base,group
 
   !real(pReal), dimension(:,:,:), allocatable :: temp