demo-lacos.f95

! Questoes a serem investigadas:
!  + Por que ha varias versoes do comando DO?
!  + Quais as diferencas entre elas?
! _______________________________________________________
!
program demo_lacos
implicit none
integer :: i, nmax = 5

print*,'Usando o comando DO:'
! SINTAXE:
! do label var = expr1, expr2 [,INCREMENTO]
!    comandos
!label continue

print*,'Primeira versão (usando rotulos) - DO'
do 100 i = 1, nmax
    print*,i
100 continue


! SINTAXE:
! do var = expr1, expr2 [,INCREMENTO]
!    comandos
! enddo

print*,'Segunda versão - DO'
nmax = 5
do i = 1, nmax
    print*,i
enddo

print*,'Usando o comando DO WHILE'

! do while (expressão lógica)
!    comandos
! enddo

nmax = 1
do while ( nmax < 5 )
    print*,nmax
    nmax = nmax + 1
enddo

print*,'Usando o comando GO TO'

!
! go to label
!

print*,'Primeira versão GO TO'
nmax = 1
101 if ( nmax < 5 ) then
        print*,nmax
        nmax=nmax+1
        goto 101
    endif

print*,'Segunda versão GO TO'
nmax = 1
    do
        print*,nmax
        nmax=nmax+1
        if ( nmax > 5 ) goto 102
    enddo
102 continue

print*,versão While'
!do while
!   if (expr-true) exit
!   bloco-de-comandos
!enddo

stop '>>> Programa Finalizado.'
END