program
main integer :: i,j do i = 1,50 do j = 1,40 print *,i end do end do end program main |
program main integer :: i1, j1 integer :: i,j do i1=1,50,1 do j1=1,40,1 do i=max( 1,i1),min(50,i1+0) do j=max( 1,j1),min(40,j1+0) print *,i end do end do end do end do end program main |