diff --git a/src/crystallite.f90 b/src/crystallite.f90
index f7854006d..2c5ede5af 100644
--- a/src/crystallite.f90
+++ b/src/crystallite.f90
@@ -736,8 +736,7 @@ subroutine crystallite_results
   integer :: p,o
   real(pReal),    allocatable, dimension(:,:,:) :: selected_tensors
   type(rotation), allocatable, dimension(:)     :: selected_rotations
-  character(len=pStringLen)                     :: group
-  character(len=:),allocatable                  :: structureLabel
+  character(len=:),allocatable                  :: group,structureLabel
 
   do p=1,size(material_name_phase)
     group = trim('current/constituent')//'/'//trim(material_name_phase(p))//'/generic'