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
エラーが出た行には行の後半に*を付けました。

A 回答 (3件)

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



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

#実際のプログラムには全角スペースや*は入ってないですよね?
    • good
    • 0

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

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

    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング