Fortran 中 select case选择字符的问题

[wash_sheep]

想要实现输入+-乘除运算可以跳到相应的case中去


但是一直有错误，select case 应该怎么用呢？
或者其他选择语句怎么用？

[zara]

http://blog.sina.com.cn/s/blog_568f1689010195wn.html

[日立奔腾浪潮微软松下联想]

select csse(_)
这里的_必须是一个表达式，类型为整型、字符型、或者逻辑型（就是其他语言中的布尔型），所以就你的代码，要先输入一个运算符：
character(len=1)::Operator
read Operator
select case(Operator)
...