blob: 66ccb9cb5fc700849b136654f7827a4eededc450 [file] [log] [blame]
program test
implicit none
integer :: i, j
!<<<<<7,1,13,1,5,20,pass
do i=1,50
do j=1,i
print *, i
end do
end do
end program test