program ex0501
 implicit none
 integer :: I
 integer, parameter :: N=10
 do 10, I = 1, N, 1
  write(*,*) 'Do – Loop Demo'
10 continue
 stop
end program ex0501