!=======================================================================
!   FILE: TEST15.F90
!   DATE: 21 July 2003
!
!   TEST: Changing the index of a DO in a subprogram.
!         Note:  This is a run-time error.
!
!   Contact: James Van Buskirk
!=======================================================================
program modify_by_include
   implicit none
   integer i

   do i = 1, 10
      call dangerous_inclusion
      write(*,'(a,i0)') ' i = ', i
   end do

   contains
      subroutine dangerous_inclusion
         i = i+2
      end subroutine dangerous_inclusion
end program modify_by_include