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...