program array8
implicit none
character(255) :: a(4)
character b(4)*255, c(4)*255
end program
