program do_schleifen

implicit none
integer i, j, a, b
real x,xa,xb,y,dx
!--------------------------------------------------------------------------
write(*,*) ' erste Variante'
do i=1,6
   write(*,*) i, i*i, i**i
   end do
read(*,*)
!--------------------------------------------------------------------------
write(*,*) ' zweite Variante'
do i=4,30,5
   write(*,*) i
   end do
read(*,*)
!--------------------------------------------------------------------------
write(*,*) ' dritte Variante'
do 99 i=2,12,2
   write(*,*) i
99 continue
read(*,*)
!--------------------------------------------------------------------------
write(*,*) ' vierte Variante'
a=1
b=200
do while(a<b)
   a=a+a
   end do
write(*,*) a, b
read(*,*)
!--------------------------------------------------------------------------
write(*,*) ' fuenfte Variante'
a=7
b=103
outer: do i=1, 10
inner:    do j=101, 110
             if (i<a) cycle outer
             if (j>b) cycle
             write(*,*)i,j
             end do inner
          end do outer
read(*,*)
!-------------------------------------------------------------------------
write(*,*) ' sechste Variante'
xa=5.3
xb=8.9
dx=0.2
loop: do x=xa,xb,dx
         y=cos(x)
         write(*,*) x,y
         end do loop

write(*,*)'Ende'
read(*,*)
!--------------------------------------------------------------------------

end program do_schleifen