org.eclipse.photran.core.vpg.tests/refactoring-test-code/unroll-loop/complex-body-unroll2/ComplexBodyCompleteUnroll.f90.result - ptp/org.eclipse.photran - Git at Google

 program test

     implicit none

     integer :: i, j=-1
     j = j**1
     j = j+j
     print *, 1
     print *, j
     j = j**3
     j = j+j
     print *, 3
     print *, j
     j = j**5
     j = j+j
     print *, 5
     print *, j

 end program test
	program test

	implicit none

	integer :: i, j=-1
	j = j**1
	j = j+j
	print *, 1
	print *, j
	j = j**3
	j = j+j
	print *, 3
	print *, j
	j = j**5
	j = j+j
	print *, 5
	print *, j

	end program test