| !Fix this text case after reindenter update | |
| program test | |
| implicit none | |
| integer :: i, j=-1 | |
| !<<<<<7,1,14,1,4,false,pass | |
| do i=1,5,4 | |
| j = j**i | |
| j = j+j | |
| print *, i | |
| print *, j | |
| if(i+1>5) exit | |
| j = j**(i+1) | |
| j = j+j | |
| print *, (i+1) | |
| print *, j | |
| j = j**(i+2) | |
| j = j+j | |
| print *, (i+2) | |
| print *, j | |
| j = j**(i+3) | |
| j = j+j | |
| print *, (i+3) | |
| print *, j | |
| end do | |
| end program test |