type varying_string private character(LEN=1), dimension(:), allocatable :: chars end type varying_string