>393
ないんじゃない？
ファイル分けてコンパイルするのが一般的じゃないかしら．

>394
エラトステネスのふるい自体はwikipediaにあるので説明なしで．
index=1 ! 配列index(999)に整数値１を代入，最初は全部素数だとしておく．
do n=2,int(max**0.5)
if(index(n)==0)cycle ! index(n)=0のとき（すなわち素数でない場合）enddoまでスキップ．
!この場合はこの１行↓をスキップするだけ
index(n**2:max:n)=0 !n**2からmaxまでnおきにindexの値を0とする．
! do i=n**2,max,n
! index(i)=0
! enddo !と同義
end do
このプログラムは，既に組み込み関数として用意されているindexとmaxを整数型として利用しているので，あんまり良くない回答例だと思います．

g77とintelの違いはコンパイラの違い．