org.eclipse.photran.core.vpg.tests/refactoring-test-code/interchange-loops/test-triple1/test-triple-loop.f90

subroutine main()
    integer :: i, j
    integer :: k, z


    do j = 1, 10
        do i = 1, 10 !<<<<< 7, 9, 15, 15, pass
            do k = 2, 20
                print *, i
                   if (i .gt. j) then
                     print *, i * 10
                   end if
                   print *, i
               end do
        end do
    end do


end subroutine