コンパイルが成功しないです；；。

質問

fortran77初心者です。コンパイルの段階でエラーが多く、どうしてもうまくいきません。下のプログラムにアドバイスをくれる人がいたらうれしいです。お願いします。
program ex30
integer tensuu,bangou
na=0
nb=0
nc=0
ninzuu=0
goukei=0
10 write(*,*) 'bangou,tensuu?'
read(*,*) bangou,tensuu
ninzuu=ninzuu+1
goukei=goukei+tensuu
select case(tensuu)　　　　　　＊
case(80:100)　　　　　　　　　　＊
write(6,*) bangou,tensuu,' a'
na=na+1
case(60:79)　　　　　　　　　　　　＊
write(6,*) bangou,tensuu,' b'
nb=nb+1
case default　　　　　　　　　　　　＊
write(6,*) bangou,tensuu,' c'
nc=nc+1
end select　　　　　　　　　　　　　＊
if(ninzuu<10) go to 10　　　　　　　＊
heikin=goukei/ninzuu　　　　　　　　＊
write(6,*) 'a=',na,'mei'　　　　　　＊
write(6,*) 'b=',nb,'mei'　　　　　　＊
write(6,*) 'c=',nc,'mei'　　　　　　＊
write(6,*) heikin　　　　　　　　　　＊
60 format(' ', 'heikin', F8.3,'ten')
end
エラーが出た行には行の後半に＊を付けました。

回答No.3

nineexit

既にご指摘があるようにcase文は90以降です．

記載されているプログラムをgfortranとifortでコンパイルしたところ，問題なくコンパイルできました．
（gfortran，ifortはどちらも77および90に対応しています．）
確か，g77もcase文には対応していたのでコンパイルできると思います．

#実際のプログラムには全角スペースや＊は入ってないですよね？

回答No.2

gunma

http://www.geol.sci.hiroshima-u.ac.jp/~kusumi/joho/fprog-l2.html
case文は、fortran90からですね。
コンパイラにselect caseが、無いのですから、エラーです。
if文で書くしかないようです。

回答No.1

gunma

case文は、fortran77では、使用できないのでは、fortran90からだったような記憶があります。