1character(kind=1) :: x 2character(kind=4) :: c 3character(kind=4,len=5) :: str 4x = 'j' 5c = 4_'k' 6str = 4_'lmnop' 7! break-here 8print *, c 9print *, str 10end 11