org.eclipse.photran.core.vpg.tests/refactoring-test-code/tile-loop/all-identifiers/testAllIdentifiers.f90.result

program test

    implicit none
    integer :: i1, j1

    integer :: i
    integer :: j
    integer :: n=1, m=20, p=10
    do i1=floor(real(n-20)/3)*3+20,8,3
        do j1=floor(real(n-20)/3)*3+20,floor(real(m-20)/3)*3+20,3
            do i=max(n,i1),min(10,i1+2)
                do j=max(n,j1),min(m,j1+2)
                    print *, i
                end do
            end do
        end do
    end do

end program test