program Concat_Arrays
implicit none
integer, dimension(3) :: a = [ 1, 2, 3 ]
integer, dimension(3) :: b = [ 4, 5, 6 ]
integer, dimension(:), allocatable :: c
c = [a, b]
write(*,*) c
end program Concat_Arrays