Formatting: Array printout

program arrayprint
  real :: x(3)
  integer :: i = 3
  do i=1,3
   x(i) = i
  end do
  print*, x
end program

With gfortran:

   1.00000000       2.00000000       3.00000000

With lfortran:

1.000000
2.000000
3.000000