fortran运行过程中按下回车键没有出现结果

问题遇到的现象和发生背景

用Fortran编写一个计算器程序时，运行过程中按下回车键没有出现结果，只是换行了。

问题相关代码，请勿粘贴截图

program ex0614
implicit none
real::a,b,ans
character::key='y'
do while(key=='y' .or. key=='Y')
read(,)a
read(,"(a1)")key
read(,)b
select case(key)
case('+')
ans=a+b
case('-')
ans=a-b
case('')
ans=ab
case('/')
ans=a/b
case default
write(,"('unknown operator',a1)")key
stop
end select
write(,"(f6.2,a1,f6.2,'=',f6.2)")a,key,b,ans
write(,)"是否继续计算"
read(,"(a1)")key
end do
stop
end

运行结果及报错内容

我的解答思路和尝试过的方法

我想要达到的结果

同一行读取，read(,) a, key,b
输入的时候，需要有空格分开： 100 - 50