blob: f706ca2ce273c383b9dbb10dfe20d52044e26c21 [file] [log] [blame]
program test
implicit none
integer :: i, j, n = 2
!<<<<<6,1,10,1,pass
do i=0,4,1
print *, (i*-2+10)*(i*-2+10)
n = n+(i*-1+5)
end do
print *, n
end program test