Fuse Loops

Description:  Takes two do-loops, normalizes their bounds, and finally puts the loop bodies in a single do-loop.

State: Implemeted         Author:  Ashley Kasza      Version:   Photran 7.0

Code Example:

    program main

    integer :: i
    integer ::j

    do i = 1,10,2
         print *,i
    end do

     do j= 21,25,1
        print *,j
    end do
   
end program main

   program main

   
integer :: i


    do i = 1,10,2
         print *,(i*2+1)
         print *,(i*1+21)
    end do



end program main


ScreenShots

      

HTML Comment Box is loading comments...