Programação de Computadores I, "Imprimindo na mesma linha"

Senhores Alunos:

O código seguinte em Fortran 95 imprime a sequência na mesma linha. Observe o uso do especificador "ADVANCE ='NO' ".

Bom final de semana!

------------------------------------------------------------------

program main
  implicit none
  integer(kind=1) :: cont = 1
  do while (cont<=13)
     write (*,"(I3)",ADVANCE='NO'),cont
    ! imprime na mesma linha
    ! saída deve ser formatada
     cont = cont + 2_1
  end do
end