971102-1.f

来自「this is a gcc file, you can download it 」· F 代码 · 共 12 行

       i=3
       j=0
       do i=i,5
         j = j+i
       end do
       do i=3,i
         j = j+i
       end do
       if (i.ne.7) call abort()
       print *, i,j
       end