program test
    implicit none

    integer :: i
    character(len=:), allocatable :: str
    character, allocatable :: str_array(:)

    str = "Hello, Fortran IRC channel!"

    str_array = [(str(i:i), i = 1, len(str))]
    str_array = pack(str_array, str_array /= " ")

    write(*,*) str_array
end program