Could Someone Compile This Code?

[ƒ(x) → ∞]

..and tell what the last line they get in doing so.

program sieve_t
implicit none
integer*1 s(1000000), offset (10), sequence
integer i, j, n

n=0
sequence=4

do i=1, 10
    offset(i)=0
enddo

offset(1)=2
offset(2)=4
offset(3)=2

do i=1, 1000000
    s(i) = 1
enddo

do i=2, 1000000
    if (s(i).eq.1) then
        do j=2, (1000000/i)
            s(i*j)=0
        enddo
    endif
enddo

do i=2, 1000000
    if (s(i).eq.1) then
        do j=1,sequence-1   
            if (s(i+offset(j)).ne.1) goto 10
        enddo
        n=n+1
        write(*,*) n, i,i+2,i+6,i+8
    endif
10    continue
enddo
end

 

[Future Bruno]

program sieve_tThe last line of output from the program would be: <number>, <prime>, <prime+2>, <prime+6>, <prime+8>

 

[quicknote]

Yes, someone could compile this code. The last line they would get after compiling is "end". This is because the code is written in Fortran and the "end" statement marks the end of the program.